- or download this
my @path_pieces = split('/', $path);
my $last_path_piece = $path_pieces[$#path_pieces];
- or download this
my ($last_path_piece) = $path =~ m|/(.*?)$|;
- or download this
my ($last_path_piece) = $path =~ m|([^/]*)$|;
- or download this
------------
:Wq
Not an editor command: Wq