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