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