ご質問というかご相談を。

1行でデータが羅列されているテキストファイルに改行をいれたいのです。
例えば　Ｘ　Ｙ　Ｚ　Ｘ　Ｙ　Ｚ　Ｘ　Ｙ　Ｚ　というファイルを
　　　　　Ｘ　Ｙ　Ｚ
　　　　　Ｘ　Ｙ　Ｚ
　　　　　Ｘ　Ｙ　Ｚ
にしたいのです。、一応動くのですが、なんとなく遠回りしてる気がして・・・・
データ数も多いので、処理速度を改善できないかとご相談を。
もしよろしければ、間違った文法のご指摘等もよろしくお願いします。

open(FILE, "$file") or die "ERROR:そのようなファイルはありません。\n";
while(<FILE>){
@gyo = $_;
}
$all = @gyo[0];
$outfile = "out.txt";
open(OUTPUT, ">>$outfile");
$count = 1;
while($count < 33697){
$tests = substr($all,0,85);
$testss = $tests . "\n";
$all =~ s/$tests//g;
push @alls ,$testss;
$count = $count + 1;
}
foreach(@alls){
print OUTPUT "$_";
}
close(OUTPUT);
close(FILE);