>>637
俺も勉強の為にちょっとやってみたよ
とりあえず動くとは思うけど良いソースかどうかは分からん

while(<*.txt>){
my $old_name = $_;
my $new_name = $_;
my @text;
open IN,"$_" or die "$!";
@text = <IN>;
close IN;
open OUT,">$_" or die "$!";
for(@text){
s/にちゃんねる/2ch/g;
}
print OUT @text;
close OUT;
$new_name =~ s/([\d\D]+)\.txt/$1_perl.txt/;
rename $old_name,$new_name;
}