$HTML =~ s|(<tr><td VALIGN=TOP>.*?</td></tr>[\s\r\n]*)|($_=$1)=~m\</td>.*?<td>\s?$_:""|egs;