my $file = shift;
my $enc = "UTF-16";
open(FILE,$file) || die("Can't: $!");
while ( <FILE> ) {
    my $str = decode($enc,$_);
    print encode($enc,$str);
}    
close(FILE);