You can make use of the File::Basename as scooterm suggested.

$path = c:\bla\did\dy\blah.txt ;
$filename = basename($path);
$dirname = dirname($path);
print "filename:$filename\ndirecory:$dirname";
[download]

output:

filename:blah.txt
directory:c:\bla\did\dy
[download]