my $path = '\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1';
print $1 if $path =~ /(?=[^\\]+\.)([^\\]+)/;
bXkgJHBhdGggPSAnXG1haW5cQUJDX1BSRFxBQkNfUUVNXDFcdGVzdFFFTS50eHRcbWFpblxBQkNfUUVNXDEnOwpwcmludCAkMSBpZiAkcGF0aCA9fiAvKD89W15cXF0rXC4pKFteXFxdKykvOwo=