while(<DATA>) {
  if($_ =~ m/\/([\w\d\.]+)$/) {
     print "$1\n";
  }
}

__DATA__
/blah/blah/blah/blah/file1.pl
/blah/blah/file2.pl
/blah/blah/blah/blah/blah/blah/blah/file3.pl