$stream = HTML::TokeParser->new( \$content )
$stream->get_tag('td');

$key = $stream->get_trimmed_text('/td');