>>762
美しいかわかんないけどファイルハンドルのtieを使うといいかもよ。
大雑把には下の感じ。

tie *IN, 'OreFilter';
open IN, 'file.txt';
print while (<IN>);
close IN;

package OreFilter;
sub TIEHANDLE { bless \*ORE => shift }
sub OPEN { open shift, shift }
sub CLOSE { close shift }
sub READLINE
{
my $self = shift;
(my $line = <$self>) =~ s/です/やん/g;
return $line;
}

>>763
それでもいいよ。