Perl scripts to randomly generate text