Das Perl Kamel

Man kann es kaum glauben, aber folgende ASCII-Art ist ein funktionierender Perl Source-Code.

Einfach mal probieren.

The Perl Camel Code

    #!/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",$_);[email protected]           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