#!/usr/bin/perl -w
# With apologies to all the giants upon whoms backs I ride
use strict;
$_='my
$s=12;my$came
l=((q( #)."\040"x($s-1))x
8)."\n",my$ myeyeshurt;eval("seek
\040DATA ,0,0;") ;foreach(1..3){<DATA>}m
y@mes=<DATA>;my$me;f oreach$me(@mes){$me=spri
ntf("%-72s",$me),$me= ~s;\S;1;g,$me=~s;\s;0;g;}wh
ile(1){print$camel;f oreach$me(@mes){my@dimensional
=split(//,$me );my$ch=0;my$staticbits=0;my@stareh
ard;my@japh=( q(0),q(1),"\040");for(1..$s){push@star
ehard,@japh[ra nd(@japh)]}for(@starehard){$myeyeshurt=
$myeyeshurt.$_}foreach$staticbits(@dimensional){if($stati
cbits<$ch){unshift@starehard,@japh[rand(@japh-1)]}elsif($st
aticbits>$ch){shift(@starehard)}$myeyeshurt=$myeyeshurt.$sta
rehard[0],$ch=$staticbits,$_=shift(@starehard),push(@stareha
rd,$_)}$myeyeshurt=$myeyeshurt."\n",@starehard=q()}system((($
^O)eq(qq(\x4D\x53\x57\x69\x6E\x33\x32)))?qq(\x63\x6c\x73):qq(\
x63\x6c\x65\x61\x72));print$camel;print$myeyeshurt;$myeyeshurt
=q(),select$,,$,,$,,0.001}';s/\s*//g;eval;q'1';__DATA__ 47`/;
$_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ push
@_ ,'ee'..'tt',push@_,'a'..'v',push @_,'J'.. 'P',
push@_,'_' (;formy$s(@_){*{;no strict' ref
s';\*$s}=s ub{$s=~s,v,,,prin $s}}END {p
rintchr( ),v(&s
t)),o(&n er)),
c(&a),e 140\24
1\041\1 \141\
115\14 1\157
\146\ 112\1
45\15 \240
\046\ 3\13
1\35 4\16
0\26 \064
\042 3\076
\140\ 9\040\
177\1 40\150\
125\132 \105\051
\133\143 \000\1
00\100\050
Hint: Use a large terminal (85 wide, 50 high), and think magic eye