$verbtest ? /$verbpat/ :
   $nountest ? /$nounpat/ :
   $preptest ? /$preppat/ :
   die 'No catch on $_';
$catch = $4;