12345678
use HTML::TreeBuilder::XPath;my $x = HTML::TreeBuilder::XPath->new;$x->parse(<<EOF);<html><head><title>Der Titel</title></head><body>Jetzt fängt der Body an</body></html>EOFwarn $x->findvalue('//body');