Select Code to Download

print encode_entities do {
    open my $fh, '<', 'two-lines-with-one-slash-each.txt' or 
...
    local $/;
    <$fh>;
};

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