There's something quite like that out there... and it's indeed written in Perl. It's called the "Random Logline Generator" (loglines being those one-sentence plot descriptions you see in TV Guide), and was written by mad puppeteer Brian Stokes. Find it here.

stephen