Untested:

$element =~ /$_/p and print "$fastaheader: ${^MATCH}\n" for qw[WEED DI
+AL PIES KILLD];
[download]