in reply to Perl and XPath.
foreach my $node ($nodeset->get_nodelist) { print $node->getNodeValue, "\n\n"; } [download]