Select Code to Download

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

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