ってことで改行も段落に変換しちしまう。

            #$p =~ s!\r?\n!<br />\n!g;
            $p =~ s!\n+\Z!!;
            $p =~ s!\r?\n!</p>\n<p>!g;