$a = qq|<center>hogehogehoge<br>hogehogehoge<br></center>
あいうえお<br>kakikueko<br>
|;

$aの中のものを置換したいです。
<center>は<CENTER>に
</center>は削除
<center>..</center>内の<br>は<BR><CENTER>に
<center>..</center>外の<br>は<BR>

こういうのをしたいんですが正規表現で一発では無理ですか?