Even this (they finally fixed the nested regex problem)

s/(<p>(?:(?!<\/p>).)*<\/p>)(??{$1 !~ m#\n\n# and '(*FAIL)'})/-->$1<--/
+gs;
[download]