Add long vocals

chicken.pl

@@ -20,7 +20,7 @@
 ) or die USAGE;
 
 my @WORDS
-    = ( "puk", "pukaaak", "cluck", "cluckity", "bwak", "waaak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaaaaaaaaaak", "gobble", "honk", );
+    = ( "puk", "pukaak", "cluck", "cluckity", "bwak", "waak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaak", "gobble", "honk");
 
 my @PUNCTUATIONS = ( ".", "...", "!", "?" );
 
@@ -48,6 +48,9 @@
         # magic multiplier
         $word = join( "-", ($word) x ( 4 - int( ( log( rand(7) + 1 ) / log(2) ) + 1 ) ) );
 
+        # even more magical multiplier
+        $word =~ s/([aou]){2,}?/$1 x (rand(7)+1)/ge;
+
         # optionally add punctuation
         # note: always add punctuation if it's the last word.