>>572
すいません
私は
open(IN, "file.txt");
@xx = <IN>;
foreach $yy (@xx) {
　if($yy =~ /hoge/){
　　print $yy;
　　}
}
close(IN);

とやっているのですが これはかなり負荷が高くなってしまうと思い
皆さんはどうしてるのかと思い質問させていただきました
すいませんがよろしくお願いします