I wholeheartedly agree:

use File::Spec::Functions;

my $fname = '/home/legato/filename.pl';
my ($vol, $path, $filename) = splitpath($fname);

# $filename now contains 'filename.pl'
[download]

A pattern match will not be as platform-aware (or as readable, incidentally) or as thorough as the above code, which is not significantly longer.