open $filehandle,"<", $_" or die .... 
 my @matching = grep {/$my_pattern/} <$_>;