The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
LASTMAC / HTML-Content-Extractor-0.17 / t / 008_main_text.t 
BEGIN { $| = 1; print "1..1\n"; }

use HTML::Content::Extractor;

my $html = q~
<html>
        <body>
                <div><a href="http://www.massiveattack.com/">blah blah blah</a></div>
                <div>main text in <span>div</span> tag</div>
        </body>
</html>
~;

my $obj = HTML::Content::Extractor->new();
$obj->analyze($html);

my $main_text = $obj->get_main_text();
if($main_text eq "main text in div tag") {
        print "ok 1\n";
} else {
        print "not ok 1\n";
}