#!/usr/bin/perl

use strict;
use warnings;
use Encode qw/from_to/;

open my $input, "<:encoding(UTF-16LE)", ".input.txt" or die "kann das Lexikon nicht öffnen: $!";

from_to($input,"UTF16LE","UTF8");
print "$input\n";