(my $name = $str) =~ s{.*/}{}; # basename