>851

$value =~ s/<//g;　#タグを一度無効化
$value =~ s/font(.*)>(.*)\/font>/<font$1>$2<\/font>/ig;　#FONTタグを復活
$value =~ s/([biu])>(.*)\/[biu]>/<$1>$2<\/$1>/ig;　#B、U、Iタグを復活

漏れはこうしてるが？
一度<を全部消して、閉じタグ付きでちゃんと書かれてたら復活させる方法。（B、U、I、FONTのみ有効）
閉じ忘れで壊れるのも同時に防げます。
増やすならfontのとこの行をコピペで増やしてfontを別のに変えればいいと思うよ。
$value =~ s/a(.*)>(.*)\/a>/<a$1>$2<\/a>/ig;
こんな感じ、これはAタグを復活、後は自分で考えて。