そこで>>719の技ですよ。

open(FILE,"<$file") or die "ERROR:そのようなファイルはありません。\n";
local $/ = \85;
print OUTPUT "$_\n" while (<FILE>);
close(OUTPUT);
close(FILE);

>>708 に関しては、文字列連結や正規表現が繰り返されてた
というのも速度に関係あるかもね。