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