Select Code to Download

#!/usr/bin/perl

...
    local $Data::Dumper::Useqq = 1;
    print Dumper $tree;
}

$VAR1 = {
          'root' => [
...
                    "\x{c9}ric"
                  ]
        };

#!/usr/bin/perl

...
    local $Data::Dumper::Useqq = 1;
    print Dumper $xml;
}

$VAR1 = "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n<root>\311ri
+c</root>\n";
$VAR1 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<root>\303\211ric
+</root>\n";