local( $/, *FILE ) ;
open(FILE ,"<$file") or die "could not read file: $!";
binmode FILE;
my $raw = <FILE>;
close(FILE);

##</code><code>##

open(FILE, $file ) or die "could not read file: $!";
binmode FILE;
my $raw = do { local $/; <FILE> };
close(FILE);