text1 data data2 text2 blah ..etc.. ##

##

use XML::LibXML;

my $file = $ARGV[0];
print $file."\n";
&parse($file);

sub parse {
my $filename = shift;
my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file("$filename");

  foreach my $node ($doc->findnodes('/root/node')) {
    print "string value :".$node->string_value."\n";
    print "to literal :".$node->to_literal."\n";
    print "node name :".$node->nodeName()."\n";
  }
}

##

##

string value :text1
   data
   data2

to literal :text1
   data
   data2

node name :node
string value :text2
   blah
   blah2

to literal :text2
   blah
   blah2

node name :node