$ perl -wMstrict -le '"/foo/bar/baz/bat"=~/\/(.+)\//; print $1'
foo/bar/baz
$ perl -wMstrict -le '"/foo/bar/baz/bat"=~/\/(.+?)\//; print $1'
foo

##</code><code>##

use File::Basename 'fileparse';
my $filename = fileparse("/foo/bar/baz/bat");
print "$filename\n";
__END__
bat