#!/usr/bin/perl
$muddy = "thedwayeislwhereuyousleftiitoallnthatiyousneedjtoudosistclea
+rfyouredelusionsaandrfollowsyourapathninsidedyourlmindsiowneeyes";

#one line

($fear, $a, $is, $b, $no, $c, $reason, $d, $to, $e, $stop, $f, $taking
+, $g, $the, $h, $steps, $i, $what, $j, $happens, $k, $happens_, $l, $
+keep, $m, $moving, $n, $without, $o, $thought, $p, $feel, $q, $everyt
+hing, $r, $everyone, $s, $take, $t, $little, $u, $produce, $v, $good,
+ $w, $because, $x, $you, $y, $can, $z) = $muddy =~ /(\w{3})(\w)(\w{3}
+)(\w)(\w\w)(\w)(\w{5})(\w)(\w{3})(\w)(\w{4})(\w)(\w\w)(\w)(\w{3})(\w)
+(\w{4})(\w)(\w{3})(\w)(\w{4})(\w)(\w\w)(\w)(\w\w)(\w)(\w\w)(\w)(\w{5}
+)(\w)(\w{4})(\w)(\w{9})(\w)(\w{3})(\w)(\w{6})(\w)(\w{4})(\w)(\w{4})(\
+w)(\w{6})(\w)(\w{4})(\w)(\w{5})(\w)(\w{3})(\w)(\w{3})(\w)/;
$om = $a.$b.$c.$d.$e.$f.$g.$h;
$ma = $i.$j;
$ni = $k.$l.$m.$n;
$pad = $o.$p.$q.$r.$s;
$me = $t.$u.$v;
$hum = $w.$x.$y.$z;
print "\n\n\t\t\t$om";
print " $ma";
print " $ni";
sleep(1);
print " $pad";
print " $me";
sleep(1);
print " $hum\n\n\n\n";
sleep(3);

print "$fear $is $no $reason $to $stop $taking\n";
sleep (2);
print "$the $steps $what $happens $happens_\n";
print "$keep\n";
sleep (2);
print "$moving $without $thought\n";
print "\n";
sleep (1);
print "\t\t$feel\n";
print "\n";
sleep (2);
print "  $everything $everyone\n";
sleep (2);
print "\t$take $little\n";
sleep (2);
print "  $produce $good $because $you $can\n\n";
sleep (7);

[download]
Note: for this to work correctly you need to have all the lines with \w combined onto one line, however to make it display on our site nicely I split that line up. vroom

05/15/01 Update: This was my first perl script,and first programming done period in any language.
So when I made this I didn't understand what damian1301 meant about using \w{3}.

Since then I've grown and learned thanks to Perlmonks.
I hope to have another poem ready soon.

In reply to dream within the dream by providencia

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.