That will also keep <supfoo> and <foosup>. A partial improvement may be

$tag = qr{</?(?:(?![< ]sup[ >])[^>])*>}i;
[download]

It works, however I'm not terribly sure about why it works...