$ perl -Mstrict -Mwarnings -E '
my @arr = qw{ sdyudf attest reer fittest };
print m{test} ? qq{$_\n} : () for @arr;'
attest
fittest
$