こういう方法でいいのかな…？ #!/opt/local/bin/perl use strict; use warnings; my $out; close STDOUT; open STDOUT, '>', \$out; print "hoge\n"; print "fuga\n"; print "piyo\n"; $out = scalar reverse $out; warn $out, "\n"; $ ./handle.pl oyip agu…