in reply to substituting file names

hi just Try this 
$file =~ s#^.*\\(.*)#$1#gsi;

[download]

In Section Seekers of Perl Wisdom