fork download
my $path = '\main\ABC_PRD\ABC_QEM\1\testQEM.txt\main\ABC_QEM\1';
print $1 if $path =~ /(?=[^\\]+\.)([^\\]+)/;
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
testQEM.txt