#!perl
use strict;
use warnings;
open IN, "<:encoding(UTF-16LE)", "in.xml";
open OUT, ">:encoding(UTF-16LE)", "out.xml";
while (<IN>) {
  print OUT $_;
}
close OUT;
close IN;