Select Code to Download

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

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