if (my @matches = $element =~ /(WEED|DIAL|PIES|KILLD)/g) {
   ...
}