It's a feature.
XML::LibXML behaves similarly:
#!/usr/bin/perl
use strict;
use warnings;
use feature qw{ say };
use XML::LibXML;
my $xml = '<r><p>Paragraph one here.</p><p>Paragraph <b>two</b> here.<
+/p></r>';
my $dom = 'XML::LibXML'->load_xml(string => $xml);
print $dom->findvalue('/r/p[2]'); # Same as $dom->findnodes('/r/p[2]/
+/text()')
# Paragraph two here.
print $dom->findnodes('/r/p[2]'); # Same as map $_->toString, $dom->f
+indnodes('/r/p[2]')
# <p>Paragraph <b>two</b> here.</p>
print $dom->findnodes('/r/p[2]/text()');
# Paragraph here
What do you mean by "complete text"?
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]