http://qs1969.pair.com?node_id=584361

It's sparse, short, cryptic, and perhaps not very unique,

but someone might find this useful. I like to think it

taps into the unlimited chaotic potential of Perl. Here's

the code.


#!/usr/bin/perl use strict; use warnings; my @words = ("copy ","study ","meditate ","write from scratch "); my @words2 = ("and ","or "); my @words3 = ("scalars ","arrays ","hashes ","regexes ","subroutines " +,"cpan ","perlmonk archives ","cgi "); print $words[rand @words], $words2[rand @words2], $words[rand @words], + $words3[rand @words3], "\n";