$text =~ s/(\n\s*){2}/<\/p>\n

/;