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/
|
---|
In Section
Seekers of Perl Wisdom
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/
|
---|