my $doc = XML::LibXML->load_xml(string => <<'XML');
<foo>hello, foobar <bar x="foo">world! a.!!!emsp14;A.</bar> fo<quz/>ooa.!!!hairsp;A.</foo>
XML
##</code><code>##

<?xml version="1.0"?>
<foo>hello, foobar <bar x="foo">world! <abbrev>a.!!!emsp14;A.</abbrev>!!!emsp14;</bar> fo<quz/>oo<abbrev>a.!!!hairsp;A.</abbrev>!!!hairsp;</foo>