Попробуй усовершенсововать это:

Misha v.3 01.11.2002 13:26 / 01.11.2002 13:29

@abrAttr[txt]
$result[^txt.match[(\S=)([^^"\s]+)([\s\/>]?)][g]{${match.1}"${match.2}"${match.3}}]


@main[]
$text[<br>
<p/>
<br />
<img src=/i/123.gif border=1 width="13">]

$text[^text.match[<([^^>]+)>][g]{<^abrAttr[$match.1]>}]
$text[^text.match[<([^^>]+[^^\/])>][g]{<$match.1/>}]
^taint[$text]