my @array;
my $p = HTML::Parser->new(api_version => 3,
                          handlers => { text => [\@array, "text"]});
$p->ignore_tags(qw(table img));
$p->parse($page);
print "Size of array=$#array\n";
foreach my $aline (@array)
{
   print $aline;
}
print "\n";