perl タグ閉じ忘れチェック

自分用の覚書として、

$memoにNOBR、CODE、B、PRE、FONTのタグあった場合にこれを途中で切り出して終了タグが削除されている時に追加する場合のサンプル。

ex：<font ="color:#121212"><b>あーだこーだと書いてみる</b>
→<font ="color:#121212"><b>あーだこーだと書いてみる</b></font>


if($memo =~ /(<(NOBR|CODE|B|PRE|FONT)\b(?:(?!<\/\2>).)*(?:<\2>|$))/sigx) {$memo.="</$2>";}

http://www.din.or.jp/~ohzaki/regex.htm#NoEndTag
を参考にしています。