Select Code to Download

$ perl -CSDA -MEncode -MXML::Parser -E'XML::Parser->new(Handlers => { 
+Char => sub { print "$_[1]" } })->parse(encode($ARGV[0], qq{<?xml ver
+sion="1.0" encoding="$ARGV[0]"?><root>\xC9ric\n</root>}));' iso-8859-
+1
Éric

$ perl -CSDA -MEncode -MXML::Parser -E'XML::Parser->new(Handlers => { 
+Char => sub { print "$_[1]" } })->parse(encode($ARGV[0], qq{<?xml ver
+sion="1.0" encoding="$ARGV[0]"?><root>\xC9ric\n</root>}));' UTF-8
Éric

use Devel::Peek;
Dump($s);

{
   use Data::Dumper;
   local $Data::Dumper::Useqq = 1;
   print(Dumper($s));
}