use warnings;
use strict;
use XML::LibXML;
my $doc = XML::LibXML->load_xml( string => <<'EOT' );
Title_Text
paragraph_text
EOT
for my $node ($doc->findnodes('//*')) {
print "<<<", $node->nodeName, ">>>\n";
my @texts = map { $_->data } $node->findnodes('./text()');
use Data::Dump; dd @texts; # Debug
}
__END__
<<>>
(" \n ", " \n ", " ")
<<>>
(" ", " ")
<<>>
"Title_Text"
<<<body>>>
(" \n ", "\n ", " \n ")
<<<p>>>
"paragraph_text"
<<<div>>>
(" \n ", "\n ")
<<<div>>>
" \n innnermost_text\n "