my $file = "/some/file/name.txt";
my $filename;
if ($file =~ m!(?:.*/)?([^/])$!) {
    $filename = $1;
} else {
    die "Weird file name format: '$filename'";
};
print "Got $filename";