>>169
それでもいいし以下のようにもできる。

{
　　local $/ = undef;
　　my $data = <FILE>;
}

read FILE, my $data, -s $file;