1 #!/usr/bin/perl # camel code
2 use strict;
3
4 $_='ev
5 al("seek\040D
6 ATA,0, 0;");foreach(1..3)
7 {<DATA>;}my @camel1hump;my$camel;
8 my$Camel ;while( <DATA>){$_=sprintf("%-6
9 9s",$_);my@dromedary 1=split(//);if(defined($
10 _=<DATA>)){@camel1hum p=split(//);}while(@dromeda
11 ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
12 t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
13 $CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
14 $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
15 @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
16 defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
17 L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
18 ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
19 camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
20 064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
21 print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
22 /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
23 $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval
24 ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s
25 ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124
26 \1 50\145\040\165\163\145\040\157\1 46\040\1 41\0
27 40\143\141 \155\145\1 54\040\1 51\155\ 141
28 \147\145\0 40\151\156 \040\141 \163\16 3\
29 157\143\ 151\141\16 4\151\1 57\156
30 \040\167 \151\164\1 50\040\ 120\1
31 45\162\ 154\040\15 1\163\ 040\14
32 1\040\1 64\162\1 41\144 \145\
33 155\14 1\162\ 153\04 0\157
34 \146\ 040\11 7\047\ 122\1
35 45\15 1\154\1 54\171 \040
36 \046\ 012\101\16 3\16
37 3\15 7\143\15 1\14
38 1\16 4\145\163 \054
39 \040 \111\156\14 3\056
40 \040\ 125\163\145\14 4\040\
41 167\1 51\164\1 50\0 40\160\
42 145\162 \155\151
43 \163\163 \151\1
44 57\156\056
syntax highlighted by Code2HTML, v. 0.9.1