my @path_pieces = split('/', $path);
my $last_path_piece = $path_pieces[$#path_pieces];

##</code><code>##

my ($last_path_piece) = $path =~ m|/(.*?)$|;
##</code><code>##

my ($last_path_piece) = $path =~ m|([^/]*)$|;

##</code><code>##

------------
:Wq
Not an editor command: Wq