reg exp help

[danny2785]

How would you tell if there are 5 consonants in a row in a word? Thanks

 

[KevinADC]

one obvious way:

my $word = 'aidcvfrtougtn';

if($word =~ /([bcdfghjklmnpqrstvwxyz]{5})/) {
   print "Found five in a row: $1\n";
}
else {
   print "No joy!\n";
}

- Kevin, perl coder unexceptional!