unknownplace.org

perldoc perlvar みてたら、$/ とかみっけ。これが undef だとファイルハンドルは slurp モードになるらしい。

my $stdin = join '', <STDIN>;

を

my $stdin;
{
    local $/;
    $stdin = <STDIN>;
}

ほー