lsbasename.pl

#!/use/bin/env perl
use strict;

# Usage:
# ls -l <path> | perl lsbasename.pl

while (<STDIN>) {
    chomp;
    my $original = $_;
    my @chunks = split / /;
    my $fullpath = $chunks[-1];
    my $basename = (split /\//, $fullpath)[-1];
    $original =~ s/$chunks[-1]/$basename/;
    print $original . "\n";
}