use strict;
use warnings;
use HTML::TokeParser::Simple;
use Data::Dumper 'DumperX';

my $p  = HTML::TokeParser::Simple->new( \*DATA );
my $daFile = "";

while ( my $t = $p->get_token ) {
        $daFile .= $t->return_text;

        if( $t->is_start_tag('font')) {

            local $SIG{__DIE__} = sub {
                print STDERR @_;
                print STDERR "\n",'x'x69,"\n";
                print STDERR "\n$daFile\n";
                print STDERR "\n",'x'x69,"\n";
                print STDERR DumperX($t);
                exit 1;
            };

         ## RETARDATION ($t is a token, not a parser)
            $t->get_trimmed_text('/font');
        }
}

__END__
<table width=90 bgcolor="#ffffff" cellpadding=0 cellspacing=0 border=0>

<td width=90 height=26 bgcolor="#999999" align=center class="buttonoff"

    nowrap onmouseover="this.className='buttonon'" onmousedown="this.className='buttondown'"

    onmouseout="this.className='buttonoff'" onclick="window.location='default.html'"><font face="arial, geneva, helvetica" size="-1">