print $_->serialize(1), $/ for $doc->getDocumentElement->childNodes;