Here is a cheating solution for generating haiku using Coy from TheDamian:

use Coy;
die;
[download]

You could clean up the output with a hack like this:

use Coy;
eval{die};
$@ =~ /-----\s*(.*)\s*(.*)\s*(.*)\s*-----\s*(.*)\.\.\./;
print "$1\n$2\n$3\n  - $4\n";
[download]

(Yeah, not your original question. Still Coy is a cool module to play with.)