Re^5: Another regex to solve ...

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/

Comment on Re^5: Another regex to solve ... Download Code

In Section Seekers of Perl Wisdom