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: