Select Code to Download

$/="\n\0";

while (my $line = <>) {
    print pack("C*", map $_ & 0xff, unpack("v*",$line));
}

use Unicode::String qw(utf16le);

...
    # or, if you want UTF-8 output:
    # print utf16le($line)->utf8();
}