【Perl 】初心者コーナーPart5

ファイルの内容を置き換えてコピーするスクリプトをつくったのですが、
スペースのところで改行されてしまいます。
配列そのままをコピー先のファイルに書き込むと、
もんだいはないのですが・・
よい方法ありませんか？


open(FILE_TO,">>file_to");
open(FILE_FROM,"file_from");

# modify string
@string_array = <FILE_BASE>;
foreach $string(<@string_array>){
$string =~ s/hogehoge/foofoo/;
print FILE_TO $string;
print FILE_TO "\n";
}

# write to file
close(FILE_TO);
close(FILE_FROM);