#!/usr/bin/perl
m!([^/]*)$! and print "$1" while (<DATA>);
__DATA__
/blah/blah/blah/blah/file1.pl
/blah/blah/file2.pl
/blah/blah/blah/blah/blah/blah/blah/file3.pl