>>228
それは文字セット [ ] の使い方間違えてるだけだ

$reg = qr{ <TD> ((?!</TD>).)*? 使用上 .*? </TD> }isx;
$string =~ s/$reg//g;

正規表現、絞込みと再帰が使えたらなあ…