A quick-and-dirty perl Markov text generator