$text = '<p class="first">'
      . do { $text =~ s|(\n\n+)|</p>\1<p class="later">|g; $text }
      . '</p>';