Perl: expressions reguliers

Je suis en train de faire un script pour remplacer les minuscules du contenu des balises html par majuscules, sauf une liste des exceptions.

Pour les exceptions, je voudrais creer une classe: [^br] par exemple, mais si je la cree comme ca, il va ignorer tous les b et tous les r.
Comment je peux representer le mot: br?

Je vodrais mettre plus d'un mot: br,td,p, etc.

Voila ma commande:

$lign2=~s/<([^br][^>]+)>/<\U$1>/g;

Merci beaucoup d'avance

Lucila