#!/Perl\bin\perl
$file="tes.txt";
$outfile="k.txt";
open (IN, $file) or die "$!";
open (OUT, ">$outfile") or die "$!";
$file = ~s/ABC/XYZ/g;
print out $file = ~s/ABC/XYZ/g;
close (IN);
close (OUT);

全く意味わからんのですが、ファイルを開いてABCをXYZに検索置換してk.txtに保存って
どうやるのだろう