>>237
カッコが抜けている
indexの見つからなかったときの戻り値は$[-1

s{(<TD>.*?</TD>)}{index($1,'使用上')>=0? '': $1}ge