use warnings; use strict; use XML::LibXML; my $doc = XML::LibXML->load_xml(string => q{From mobile, dial this number:}); for my $node ($doc->findnodes('/doc/text')) { my $frag = $doc->createDocumentFragment; $frag->appendChild($_->cloneNode(1)) for $node->childNodes; print $frag, "\n"; } __END__ From mobile, dial this number: