http://www.perlmonks.org?node_id=921016


in reply to Re^4: Another regex to solve ...
in thread Another regex to solve ...

Two regexes work:

$w =~ /([aeiou])p\b/ && $w !~ /${1}${1}p\b/