##
#!/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";
}
}
}
}