sub randelt { my(@l) = split(/,/,$_[0]); $l[rand(@l)]; } undef $/; $_ = ; s/\n\s+/ /g; @complaints = split(/\n/); for (1..rand(5)+1) { $c = $complaints[rand(@complaints)]; $c =~ s/\[(.*?)]/randelt($1)/ge; print "$c "; } __DATA__ Can't they keep this damn system up for more than [10,20,30,40,50,60] minutes at a time? HEY GOOGLE! You guys know anything about computers? This is just a [technological,sociological,google,embarassing,tragic,inexcusable] failure. What's with this [stupid,insulting,elitist] invitation-only crap? What about allowing [the common people,shut-ins,technophobes,luddites,unpopular people] too? Does everyone here have to be [Linus Torvalds,Cliff Stoll, the captain of the football team,a Supreme Court justice,a Democrat front-runner,Janet Jackson]? This is worse than high school. This is all just [Friendster,Match.com,Slashdot,Usenet] done badly. Don't these idiots know anything about [sociology,social networks,networking,people,human behavior]? Haven't we learned anything? Have you seen the terms of service? They [say you must be 18,can terminate your account at any time,own your postings,forbid spiders/robots,use cookies,are longer than the MS EULA]! Orkut = NAZI GERMANY. What's with the "[Trusty,Sexy,Cool,Fan]" markers? Looks like [sexist,elitist,communist,Stanford] bullshit. Don't they know that [Friendster,Amazon,Match.com,Usenet,LJ,Slashdot] tried that feature [2,3,4,5] years ago and it was an abysmal failure. Have we learned nothing about social networking? I can't believe [I,my friends,my friends' friends,my worst enemy,a Star Wars fan,an S&M freak] can send a [message,crush note,complaint] to [me,my friends,my friends' friends,everyone in Antisocial,the whole Star Trek community,Emacs users,the Friends fan community]. Orkut people know nothing about security! [Friendster,Match.com,Usenet,DecNET] did this [2,3,4,5,6,7] years ago.