qr %

([^<]*(?:<(?!b>|/p>)[^<]*)*)

%i;