my @r = <$fh>;
my $data = join '', @r;
##</code><code>##

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