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