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";