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

##</code><code>##

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

# $/ contains it's original value (\n) now