#! /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__