in reply to Another regex to solve ...

my @tests = qw/ p up hip hop hoop heap help hops /; 

for ( @tests ) {
  say if reverse =~ /^p([aeiou])(?!\1)/;
}

[download]

Replies are listed 'Best First'.
Re^2: Another regex to solve ...
by pat_mc (Pilgrim) on Aug 19, 2011 at 19:44 UTC
    Gooooood thinking, Not_a_Number!!!!

    I like this one ... reversing the string before matching it ... how neat is that? Excellent! Goooood on ya! And thanks for the idea. This is coooooool stuff!

    And who ever said 'regex golfing was a waste of time'? Far from it ... it's like Perl philosophy ... pure aesthetics ... sheer bliss. Thanks agani for this near little twist!
[reply]

In Section Seekers of Perl Wisdom