< \s*\/{0,1}\s*p\s*>
=~ s!< /{0,1}p\s*>!!gsi;
=~ s!< /{0,1}p(\s*|\s[^>]*)>!!gsi;
=~ s|^< /{0,1}p\s*>||gsi;