$ perl -MXML::LibXML -e '
my $dom = XML::LibXML->load_xml(string => shift);
print $_->to_literal(),"\n"  for 
       $dom->findnodes("/collection/document/*/text"),;
'  "<collection><document><title><text> Hello how are you</text></title></document><document><abstract><text>I am fine</text></abstract></document></collection>"

##</code><code>##

 Hello how are you
I am fine