$xml =~ s/&(?!gt;|lt;|amp;|quot;|apos;|#x\d+;)/&/g;