To search for two or more newlines and replace them by <p>\n, use this:

    $data =~ s/\n{2,}/<p>\n/g;
[download]

For a more general approach of turning plain text into HTML, check out HTML::TextToHTML.