Perl regexp

просто отфильтровать атрибуты?
HTML::Parser удобнее будет

$ echo '<td width=5 colspan=4 height=10>текст</td>' | perl -ne 's{ <td \s* ((?: (?!colspan) \w+ \s* = \S+ \s* )*) (?: colspan \s* = \s* \S+ \s* )? ((?: (?!colspan) \w+ \s* = \S+ \s* )*) >}{ <td $1 $2> }gixs ; print'

<td width=5 height=10>текст</td>

ну и заменить colspan на регексп тоже

<TD WIDTH=139 HEIGHT=53 ALIGN=CENTER VALIGN=MIDDLE colspan=10>++Вид расхода</TD>

После запуска:
<td WIDTH=139 HEIGHT=53 ALIGN=CENTER VALIGN=MIDDLE > ++Вид расхода</TD>

Хотелось такого:
<TD colspan=10>++Вид расхода</TD>

На вскидку:
s/<TD.+?(COLSPAN|ROWSPAN)(=\d+)(.*)$/<TD $1$2$3/i;