$str = join "\n<p>\n", grep s/\n/<br>\n/g || 1, split /\n\n/, $str;