>>766
解決乙。これでも良いのでは。

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