($match) = "The longest word" =~ /(\w+)/;
  print $match;

##</code><code>##

  ($match) = "Mrs Smith" =~ /(Mr|Mrs)/;
  print $match;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

  ($outer, $inner) = "/foo/bar" =~ m[(/(.+))*];
  print $inner;