Blockquoteでデフォルトで改行を自動挿入

我楽: Blockquoteタグにデフォルトで改行が入るようにする。
sub html_text_transform {
my $str = shift;
$str ||= '';
my @paras = split /\r?\n\r?\n/, $str;
for my $p (@paras) {
if ($p !~ m@^</?(?:h1|h2|h3|h4|h5|h6|table|ol|dl|ul|menu|dir|p|pre| center|form|fieldset|blockquote|address|div|hr)@) {
$p =~ s!\r?\n!<br />\n!g;
$p = "<p>$p</p>";
}
<!-- この下から -->
elsif ($p =~ m@^</?(?:blockquote|div|p)@){
$p =~ s!\r?\n!<br />\n!g;
}
<!-- この上まで -->
}
join "\n\n", @paras;
}