Merge pull request #4 from mariux64/add-char-multiplier

Add long vocals

Cluckity-cluckity cluckity wak Cock-a-dooodle-dooooooo gobble-gobble waaaaak-waaaaaak bwwwaaak-bwwwaaaaak cock-a-doodle-dooo bok Bwok-bwok cluckity Cock-a-dooodle-doo-cock-a-doooodle-do-cock-a-doodle-doooooo waaaaak Bwok pukaaak honk bok? Puk-puk Bwak Cluck-cluck-cluck Puk? Bwwwaaaaak gobble cluckity-cluckity Bwok cock-a-dooooodle-doooo Pukaaaaak-pukaaak-pukaaaaaak cluckity-cluckity pukaak bwak!

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.