chomp(@slurp = <>);
print @slurp;

##</code><code>##

$text = do { local $/; <>};
$text =~ s/\n//g;                  # for some \n
print $text;