in reply to Renaming file without forward slash

Hi,
You can use the following RegEx: 
$word =~ /(.*\\)*(.+)\..*/;
print "One of the files is " . $2 . "\n";

[download]

In Section Seekers of Perl Wisdom