Help for this page

Select Code to Download

Select or download this

# Encode output.
# Use the encoding that's appropriate for you.
...
}

print "...\n", $lines, "...\n";

Select or download this

$ perl -e'open $fh, "<:encoding(UCS-2le)", \"\x00\xD8"; <$fh>'
UCS-2LE:no surrogates allowed d800 at -e line 1.