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

##</code><code>##

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

##</code><code>##

my $size = -s( $filename );
open my $fh, '<', $filename or die $!;
read( $fh, my $data, $size );