>perl -wMstrict -le
"my $element = 'hi WEED ho';
 if ($element =~ m{ (WEED|DIAL|PIES|KILLD) }xms) {
   my $match = $1;
   print qq{match: '$match'};
   }
"
match: 'WEED'