Yes use File::Find but this will do what you want to your path string:

$path = "c:\\foo\\bar\\perl.exe";
my($dir,$file) = $path =~ m/(.*\\)(.*)/;
print "$dir | $file";
[download]

doc

print(s<>ecode?scalar reverse :p)