sub perl{return($~=(' 'x@i))}sub monks{push(@i,'a');perl}sub 
hacker{pop(@i);perl}@_=(perl,monks,perl,monks,perl,monks,perl
,hacker,perl,hacker,perl,hacker);@pm=(''

# You see I've been through the desert,
,'use strict print jgk+OO12OO'
# On a Horse with no Name,),
,'qwer+OO41 Push wn+(092837621L'
# It was good to be out of the rain,
,'kO7817O908LPWNdHz+90283764823}'
# In the desert you can remember your name,
,'j(902876539}us+(1920394872936+'
# Cause there ain't no one for to give you no pain,
,'tAnp+192036\'+(2673519087265439}'
# La la la la la la la la la la la la la la,
,'jie+6574920O9027865428791623368}'

# After two days in the desert sun, 
,'rpe{20937615008928833718289054263}'
# My skin began to turn red,
,'pop(45637281762536671198293098789}'
# After three days in the desert fun, 
,'erJu(982937652617829837651000989020'
# I was looking at a river bed,
,'Pewlqn(2783488711112789909384756(+69'
,'killWxz(7777783927736123222O288}n00'
# And the story it told of a river that flowed, ),
,'i buried++w12345O13579)131)`314}{1\''
# Made me sad to think it was dead 
,'p sub monks(592)a76892`666}xi`666`+'

# You see I've been through the desert,
,'paultrrwxnhj{777\'{8080}c742}MM{42+'
# On a Horse with no Name,),
,'shift a lpen{42) {69O+  )69\'and42}'
# It was good to be out of the rain,
,'use warnings01}  )02O )03\'pop 575\''
# In the desert you can remember your name,
,'map ord chr 45\'rand)909}eval a34'
# Cause there ain't no one for to give you no pain,
,'require LWP+1)ktros+1981}sub +05'
# La la la la la la la la la la la la la la,
,'reverseperl02}aly+649OO6}kevin)13}'
,'mnbvcxzlkO867\'qqtwnwelpasrtt`977\''
,'tgbnhyecDDDDD');

@i=(123);while(1){$_=~ s/[a-zA-CE-NP-WYZ]/ /g for(@pm);
$_=~ s/\d/X/g for(@pm);print ' ',$_,$/ for(@pm);@pm=reverse(@pm); 
for(@pm){($j==@_)?($j=0):($j++);print $_[$j].$_,$/}@pm=reverse(@pm);
select $,,$,,$,,(@i/10);system(($^O eq 'MSWin32')?'cls':'clear');}

[download]
Note: Takes a long terminal (45 lines) to display properly

In reply to Camel at the Oasis by ktross

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.