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