#!/usr/bin/perl
use XML::LibXML;
use strict;
use warnings;
my $tree = XML::LibXML->load_xml(IO => \*DATA);
my $dtd = XML::LibXML::XPathContext->new( $tree->documentElement() );
$dtd->registerNs( 'u' => 'http://www.w3.org/1999/xhtml' );
for my $body ($dtd->findnodes('//u:body')) {
# print $body->toString;
for my $n ($body->childNodes()) {
print $n->toString;
}
}
print "\n";
print "OK\n";
exit(0);
__DATA__
foo
bar
trololo