my $data='';
while (<$file>) {
     $data .= $_;
    }

##</code><code>##

binmode($file);
my $data;
{ local $/; $data = <$file>; }