Select Code to Download

 read a text or a dictionary
 find each word and filter out rubbish (numbers, initials, etc)
...
 a random word with different ending.
 3rd word continue with same ending as previous (0)
 etc.

#!/usr/bin/env perl

...
        #print "num words: ".scalar(@sent)."\n";
        return \@sent;
}