language: Perl (perl 5.16.2)
date: 243 days 0 hours ago
link:
visibility: public 
1
2
3

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