Select Code to Download

 <?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>
<foo>
...
<p>same, but this time whith an &#8211; .. æøå ÆØÅ</p> 
<p>same, but this thime with an &#8221; instead .. : æøå ÆØÅ</p>
</foo>

my $xmldata = XMLin( $ARGV[0], ForceArray=>1, KeyAttr=>{meta=>"name"} 
+, SuppressEmpty=>"") or die "Could not parse xml data: $!";

...
}

print Dumper($xmldata);

 ./test2.pl foo.xml 
foo
Wide character in print at ./test2.pl line 12.
...
                   "same, but this thime with an \x{201d} instead .. :
+ \x{c3}\x{a6}\x{c3}\x{b8}\x{c3}\x{a5} \x{c3}\x{86}\x{c3}\x{98}\x{c3}\
+x{85}"
                 ]
        };