$/="\n\0";

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

##</code><code>##

use Unicode::String qw(utf16le);

$/="\n\0";

while (my $line = <>) {
    print utf16le($line)->latin1();

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