use XML::LibXML; $s = "<foo name=bobby><name>robert
"; print "before: $s.\n"; $dom = XML::LibXML->load_xml(string => "##
before: <foo name=bobby><name>robert.
<foo name=bobby><name>robert</name></foo></p>
after: <foo name=bobby><name>robert.