use strict; use XML::LibXML; parse(); sub parse { my $filename = shift; my $parser = XML::LibXML->new(); my $doc = $parser->parse_string(<<'EOT'); text1 data data2 text2 blah data3 EOT foreach my $node ($doc->findnodes('/root/node/text()[1]')) { print "string value :".$node->string_value."\n"; print "to literal :".$node->to_literal."\n"; print "node name :".$node->nodeName()."\n"; print "____________________\n"; } }