#!/usr/bin/perl -w
use strict;
use XML::DOM;

my $p = XML::DOM::Parser->new();

my $doc = $p->parsefile('test.xml');
my $root = $doc->getFirstChild();

foreach my $node($root->getChildNodes) {
        if($node->getNodeType == ELEMENT_NODE) {
                for my $child($node->getChildNodes) {
                    if($child->getNodeType == TEXT_NODE) {
                        print $child->getData, "\n";
                    }
                }
        }
        
}