>>78
親切な僕が変態 ReplacePrint.pm をそれっぽく書いたげたお。
die のほうはせっかく例外投げてんだから catch してあげて。

使い方:
use ReplacePrint;
print "string\n";

# ここから ReplacePrint.pm
package ReplacePrint;
use strict;

sub TIEHANDLE { bless [], $_[0] };

sub PRINT {
my $self = shift;
my @str = @_;
for (@str) {
s/$/ is replaced/;
print STDOUT;
}
}

my $out;
open *OUT, ">", \$out;
my $stdout = select(OUT);
tie *OUT, "ReplacePrint";
1;