while ($HTML=~ /<tr><td VALIGN=TOP>([^<td>].*)<\/td><\/tr>/) {
$HTML =~ s/<tr><td VALIGN=TOP>[^<td>].*<\/td><\/tr>//;}