my $not_followed_by_end_p = qr{(?:(?!</p>).)*}s;
while (<>) {
    s{ (<p>
         (?=$not_followed_by_end_p\n\n)
         $not_followed_by_end_p</p>)
     }{-->$1<--}gx;
    print;
}