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');}
Note: Takes a long terminal (45 lines) to display properly
