#!/usr/bin/perl --
use warnings; use strict;
use XML::LibXML;
my $orig = "<?xml version='1.0' encoding=\"ISO-8859-1\" standalone=\"yes\"?><tag string=\"s&#195;&#188;&#195;&#159;e\" />";
my $dom = XML::LibXML->new(qw/ recover 2 /)->load_xml(  string => $orig );
dd( $orig );
dd( "$dom" );
dd( $dom->findvalue( q{//*/@string } ) );
printf "%v02x\n", $dom->findvalue( q{//*/@string } );
dd( map { ord $_ } split //, $dom->findvalue( q{//*/@string } ) );
__END__
"<?xml version='1.0' encoding=\"ISO-8859-1\" standalone=\"yes\"?><tag string=\"s&#195;&#188;&#195;&#159;e\" />"
"<?xml version=\"1.0\" encoding=\"ISO-8859-1\" standalone=\"yes\"?>\n<tag string=\"s\xC3\xBC\xC3\x9Fe\"/>\n"
"s\xC3\xBC\xC3\x9Fe"
73.c3.bc.c3.9f.65
(115, 195, 188, 195, 159, 101)