my $tag = qr{
   <(?>/?)  # tag start
   (?!sup)  # not a <sup> or </sup> tag
   [^>]*    # everything but the tag end+
   >        # end of tag
}xi;
$str =~ s/$tag//g;