改行（$val =~ \x0D\x0A\、x0D、\x0A）が二回以上連続した場合、
その改行を</p>\n<p>に置換したいのですが、
どのようなコードを書くのがもっとも軽い処理になるでしょうか？