print "hello 1\n" if (-r $_);
 my @matching = grep {/$my_pattern/} <$_>; 

##</code><code>##

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