@res = grep {/$pat/g} @arr; print "Search:\t@res\n";