ポイントは入力レコードセパレータ変数(特殊変数) $/ に undefを代入して、一気に読み込むこと。このようなコードは"perlsub"の"Localization of special variables local, special variable"でも述べられている。
sub get_stdin
{
my $str = '';
{
local $/ = undef;
$str = <STDIN>;
}
return $str;
}