#!/usr/bin/perl -w

use strict;
use HTML::Parser;

my $in_table = 0;

my $p = HTML::Parser->new(
   default_h => [ sub { print shift unless $in_table }, 'text'],
   start_h   => [ sub {
     shift eq 'table' ? $in_table++ : $in_table || print shift
   }, 'tagname, text'],
   end_h     => [ sub {
     shift eq 'table' ? $in_table-- : $in_table || print shift
   }, 'tagname, text'],
);
$p->parse_file(shift || die "Need a file") || die $!;