open(FILE,"<$file") || die $!;
my $data = do { local $/; <FILE> };
close(FILE);

##</code><code>##

open(FILE,"<$file") || die $!;
my $data;
{ local $/; $data = <FILE> }
close(FILE);