my $a = "foo/bar/baz";
my ($file) = $a =~ /\/(.*?)$/;

##</code><code>##

my ($file) = $a =~ m|/([^/]+)$|;