...
    use XML::LibXML;
    my $dom = XML::LibXML->load_xml(string => $xml_doc);
    print $dom->toString(), "-----\n"; # works!