Perlでガシッとファイルから文字列を読み込むとき

my @data = <STDIN>;
close(IN);

配列で読み込まず、ひとつの変数でガシっと読み込みたい時は以下。

local $/ = undef;
my @data = <STDIN>;
close(IN);