Select Code to Download

 use XML::LibXML ;
binmode STDOUT, ':encoding(UTF-8)';
my $str = XML::LibXML->new(
...
)->get_node(0)->textContent;
print $str;