Select Code to Download

my $parser = XML::LibXML->new();
open my $in, '<:encoding(UTF-16)', $xmlfile or die $!;
...
close $in;
$xmltext =~ s/encoding="Unicode"//i;
my $doc = $parser->parse_string($xmltext) or die "Could not process XM
+L file $xmlfile";