Select Code to Download

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