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