my $path = "/path/ending/with/a/filename";

my $file = (split(/\//,$path))[-1];

print "$file\n";

##</code><code>##

use File::Spec;

my $fullpath = "/path/ending/with/a/filename";

my ($volume, $path, $file) = File::Spec->splitpath($fullpath);

print "$file\n";