map { (my $foo=$_)=~ s!.*/!!; $foo } ...