my $strFileA = 'C:\foo\a\b\c\123.xml';
my ($filename) = ($strFileA =~ /\\([^\\]*)$/);
print $filename,"\n";