#!/usr/bin/perl
use strict;
use warnings;
use Encode;

open my $input, "<", "input.txt" or die "kann das Lexikon nicht öffnen: $!";

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

close($input);