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