copied from
http://www.cpan.org/misc/japh
really prety ;-p
#Erudil from http://www.perlmonks.com/
#!/usr/bin/perl -w # camel code
use strict;
$_='ev
al("seek/040D
ATA,0, 0;");foreach(1..3)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&//S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&//S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&//S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&//S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"/040..m`{/J/047/134}L^7FX"))[$camel1h
ump];}$camel.="/n";}@camel1hump=split(//n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;y/LJF7/173/175`/047//061/062/063/
064/065/066/067/070/;y/12345678/JL7F/175/173/047`/;$_=reverse;
print"$_/040$Camel/n";}foreach(@camel1hump){chomp;$Camel=$_;y
/LJF7/173/175`/047/12345678/;y/12345678/JL7F/175/173/0 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__ /124
/1 50/145/040/165/163/145/040/157/1 46/040/1 41/0
40/143/141 /155/145/1 54/040/1 51/155/ 141
/147/145/0 40/151/156 /040/141 /163/16 3/
157/143/ 151/141/16 4/151/1 57/156
/040/167 /151/164/1 50/040/ 120/1
45/162/ 154/040/15 1/163/ 040/14
1/040/1 64/162/1 41/144 /145/
155/14 1/162/ 153/04 0/157
/146/ 040/11 7/047/ 122/1
45/15 1/154/1 54/171 /040
/046/ 012/101/16 3/16
3/15 7/143/15 1/14
1/16 4/145/163 /054
/040 /111/156/14 3/056
/040/ 125/163/145/14 4/040/
167/1 51/164/1 50/0 40/160/
145/162 /155/151
/163/163 /151/1
57/156/056
%%
really prety ;-p
#Erudil from http://www.perlmonks.com/
#!/usr/bin/perl -w # camel code
use strict;
$_='ev
al("seek/040D
ATA,0, 0;");foreach(1..3)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&//S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&//S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&//S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&//S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"/040..m`{/J/047/134}L^7FX"))[$camel1h
ump];}$camel.="/n";}@camel1hump=split(//n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;y/LJF7/173/175`/047//061/062/063/
064/065/066/067/070/;y/12345678/JL7F/175/173/047`/;$_=reverse;
print"$_/040$Camel/n";}foreach(@camel1hump){chomp;$Camel=$_;y
/LJF7/173/175`/047/12345678/;y/12345678/JL7F/175/173/0 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__ /124
/1 50/145/040/165/163/145/040/157/1 46/040/1 41/0
40/143/141 /155/145/1 54/040/1 51/155/ 141
/147/145/0 40/151/156 /040/141 /163/16 3/
157/143/ 151/141/16 4/151/1 57/156
/040/167 /151/164/1 50/040/ 120/1
45/162/ 154/040/15 1/163/ 040/14
1/040/1 64/162/1 41/144 /145/
155/14 1/162/ 153/04 0/157
/146/ 040/11 7/047/ 122/1
45/15 1/154/1 54/171 /040
/046/ 012/101/16 3/16
3/15 7/143/15 1/14
1/16 4/145/163 /054
/040 /111/156/14 3/056
/040/ 125/163/145/14 4/040/
167/1 51/164/1 50/0 40/160/
145/162 /155/151
/163/163 /151/1
57/156/056
%%