./test2.pl foo.xml 
foo
Wide character in print at ./test2.pl line 12.
foo with an –
some latin1 encoded chars: æøå ÆØÅ
Wide character in print at ./test2.pl line 12.
same, but this time whith an – .. æøå ÆØÅ
Wide character in print at ./test2.pl line 12.
same, but this thime with an ” instead .. : æøå ÆØÅ
$VAR1 = {
          'p' => [
                   'foo',
                   "foo with an \x{2013}",
                   'some latin1 encoded chars: æøå ÆØÅ',
                   "same, but this time whith an \x{2013} .. \x{c3}\x{a6}\x{c3}\x{b8}\x{c3}\x{a5} \x{c3}\x{86}\x{c3}\x{98}\x{c3}\x{85}",
                   "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}"
                 ]
        };