$word =~ /(.*\\)*(.+)\..*/;
print "One of the files is " . $2 . "\n";