$what_matched = $1
   if $string =~ /\b(\watch|m\wtch|ma\wch|mat\wh|matc\w)\b/;