if ('text' eq $r->name and XML_READER_ELEMENT == $r->nodeType) {
        print $r->copyCurrentNode(1);
    }