use strict;
use warnings;

open IN,  "<:encoding(utf16le)", "test.utf16le" or die $!;
open OUT, ">:encoding(utf8)",    "test.utf8"    or die $!;

while (my $line = <IN>){
    print OUT $line;

}
close IN;
close OUT