($match) = "foo/bar/baz" =~ m[.*?/(.*)]; print $match;