print encode_entities do {
    open my $fh, '<', 'two-lines-with-one-slash-each.txt' or 
      die "D'Oh! $!\n";
    local $/;
    <$fh>;
};
##</code><code>##

print encode_entities do { local (@ARGV,$/)='two-lines-with-one-slash-each.txt'; <> };