From c363129b7aaa4928a14a637fe99aa4aa581c6d47 Mon Sep 17 00:00:00 2001
From: Peter Marquardt <wwwutz@molgen.mpg.de>
Date: Fri, 25 Nov 2022 09:37:23 +0100
Subject: [PATCH] Add long vocals

Pukaaaaak-pukak cluck Cock-a-doooooodle-dooooo-cock-a-doodle-dooo
waaaaak-waaaaak Honk bwak Cluckity-cluckity cluck-cluck-cluck
Bok-bok bwak... Cock-a-doooodle-doooo Puk! Cluckity-cluckity. Pukak
Waaaaak bok Waaak-waaak! Honk puk gobble. Cluck-cluck-cluck Bwok
Cluckity-cluckity-cluckity bwwwaaak waaaaaak honk Cluck gobble
cock-a-dooooooodle-dooooo-cock-a-doooodle-doooooo bwok.
---
 chicken.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/chicken.pl b/chicken.pl
index a051dc6..2e0a6dd 100755
--- a/chicken.pl
+++ b/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.