s{(<TD>.*?</TD>)}
{
index($1,'使用中')==-1?$1:''
}isge;

いまいちか・・・・