use File::Basename qw(basename dirname);
print basename("c:\\path\\file.txt"), $/;
print basename("c:/path/file.txt"), $/;
print dirname("c:\\path\\file.txt"), $/;
print dirname("c:/path/file.txt"), $/;
__OUTPUT__
file.txt
file.txt
c:\path
c:/path