$htmltag="(<[^>]+>)";
s/<td>$htmltag{99}(.*?)<\/td>/$100/;