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