use File::Basename;

my $name = "C:\karate\kid\sucks";
my $basename = basename($name);
print "$basename\n";