What this perl poem generator first gave me:


the hoar

hast at bunk
coar on tost
mall on mams
dibs no post


perl -le ‘sub b{@_=unpack"(A2)*“,pop;$_[rand@_]}
sub w{” “.b("cococacamamadebapabohamolaburatamihopodito”).
b(“estsnslldsckregspsstedbsnelengkemsattewsntarshnknd”)}
{$_=“nnthe”.w.“n”;$_=w.“ ”.b(“attoonnoof”).w if$l;
s/[au][ae]/a/;print;$l=0if$l++>rand 9;sleep 1;redo}’

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.