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

##</code><code>##

if (my @matches = map { /(WEED)/, /(DIAL)/, /(PIES)/, /(KILLD)/ } $element) {
   ...
}

##</code><code>##

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