You're pretty close, but you aren't doing any substitution. You want something more like this:

$pat = "cccv";
$pat =~ s/c/[^aeiou]/g;
$pat =~ s/v/[aeiou]/g;
if ($word =~ /($pat)/) {
  $yep++;
}
[download]

You need to actually substitute the 'c's and 'v's for the character classes before trying to do the matching.

kelan

---

Perl6 Grammar Student