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