>>708
約 3MB のファイルか。
メモリ利用の効率を無視できるなら、それくらいの容量なら、
今のままの一気に読み込む富豪的アルゴリズムでもいいと思うけどね。
（目的と、ファイルサイズがどれくらいになりうるかで
決めるといいかも。）

フィールド長（85バイト）が決まっているなら、
read で書いても簡単に書けると思うし、
不定でもバッファを用意すればいいね。

>>708のコードは次のように簡潔に書けるから、参考になりそうならどうぞ。
メモリ効率等は改善してないが、可変フィールド長には対応。
open(IN, $file);
my @data = split(/\s+/, <IN>);
close(IN);

open(OUT, ">>$outfile");
for (my $i=0; $i<@data; $i+=3) {
　　print OUT "$data[$i] $data[$i+1] $data[$i+2]\n";
}
close(OUT);