my $paragraphs = $comments_to_add =~
    s&\s*(.+?)\s*?(?:\n(?!\r?\n)|\z)&<p>$1</p>&g;