Help for this page

Select Code to Download

Select or download this

open my $fh, '<:raw:perlio:encoding(UTF-16LE):crlf', $filename
    or die "Couldn't read '$filename': $! / $^E";

Select or download this

open my $fh, '<:raw:perlio:encoding(UTF-16LE)', $filename
    or die "Couldn't read '$filename': $! / $^E";