Here's a bit of random nonsense. Create a random number of lines with a random number of random words from a dictionary. Repeated words are acceptable.

use strict;
use warnings;

my @words = <DATA>;
chomp @words;

my $number_of_sentences = 3 + int( 10*rand() );

for (1..$number_of_sentences) {  
    my $sentence_length = 2 + int( 9*rand() );
    my @sentence = map {$words[int(rand($#words+1))]} 1..$sentence_len
+gth;
    $sentence[0] = ucfirst $sentence[0];
    print join(" ", @sentence), ".\n\n";
}

__DATA__
abnormal
blah
crazy
dolt
dolthead
doltish
doltishly
doltishness
eccentric
fallacious
galling
hapless
illogical
jabber
kooky
lame
misguided
nuisance
officious
pretense
questionable
resentful
shaky
tenuous
untenable
vague
warp
yawn
zombie

[download]

The output from a run was:

Doltishly yawn yawn.

Shaky warp yawn tenuous misguided illogical doltish.

Warp blah officious kooky dolthead untenable eccentric untenable offic
+ious.

Galling officious.

Abnormal doltish hapless tenuous.

Galling crazy.

Abnormal galling doltish.

Kooky crazy doltishly doltishness.

Eccentric blah fallacious galling.

Pretense untenable questionable abnormal kooky zombie dolt jabber.

[download]

In reply to Creating random sentences from a dictionary by Lotus1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.