#!/usr/bin/perl -w
use warnings;
use strict;
use HTML::TreeBuilder;

my $html = <<'EOHTML';
<table cellspacing="0" cellpadding="2" border="0" width="100%">
    <tr>
      <td width="20%" align="right" valign="top" bgcolor="#CCCCCC">
      <font face="arial, helvetica" size="2"><b>02:44 AM
      EDT</b></font><br>
      <font face="arial, helvetica" size="1">0:42
      (est.)</font><br></td>

      <td valign="top"><font face="arial, helvetica" size=
      "1">Speech</font><br>
      <font face="arial, helvetica" size="2"><a href=
      "/cspan/cspan.csp?command=dprogram&amp;record=142524675">U.S.-Japan
      Relations</a><br>
      Asia Society, Washington Center<br></font> <font face=
      "arial, helvetica" size="2" color="#CC0000">Ryozo Kato</font>
      <font face="arial, helvetica" size="1">, Japan</font></td>
    </tr>
  </table>
EOHTML


my $tree = HTML::TreeBuilder->new_from_content($html);
   $tree->parse_content($html);
my $c = $tree->look_down(
	    "_tag", "table",
	    "width", "100%"
	    );
my @trimmed_text = map ( ref($c) ? $c->as_trimmed_text : $c, $c->content_list );

print "@trimmed_text\n";

#