Select Code to Download

if ('doc' eq $r->name and XML_READER_ELEMENT == $r->nodeType) {
        print $r->copyCurrentNode(0)->toString;
    }