#! /bin/perl -w
use strict;
use warnings;
use XML::Twig;

my $dataCount = 0;
my $str = do {local $/; <DATA>};
my $t= XML::Twig->new (twig_roots => {data => \&data});

$t->parse ($str);


sub data {
    my ($t, $data) = @_;
    
    ++$dataCount;
    print "Data node $dataCount\n";
    
    my @strings = $data->descendants ('string');
    
    print "   ", $_->trimmed_text (), "\n" for @strings;
}


__DATA__

##</code><code>##

Data node 1
   1 some stuff
   1 some more stuff
   1 yet more stuff
   1 enough stuff
Data node 2
   2 some stuff
   2 some more stuff
   2 yet more stuff
   2 enough stuff
Data node 3
   3 some stuff
   3 some more stuff
   3 yet more stuff
   3 enough stuff