while($raw_octets = <$input>){
    chomp $raw_octets;
    $perl_scalar = decode("UTF-16LE", $raw_octets);
    $utf8_octets = encode("utf8", $perl_scalar);
    print $output $utf8_octets . "\n";
}