Source code readability!

During my studies, students were always brain stormed with the same message: “Your code must be readable by others”.
And this one?

#!/usr/bin/perl -w
use strict;
                                           $_='ev
                                       al("seek40D
           ATA,0,                  0;");foreach(1..2)
       {;}my               @camel1hump;my$camel;
  my$Camel  ;while(             ){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=)){@camel1hum        p=split(//);}while(@dromeda
 ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
        t(@dromedary1    ))&&/\S/){$camel1hump+=1;s$\s*$$g;(   );;s
             ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
               \1   50\14540\165\163\14540\157\1 4640\1  41
                    40\143\141  \155\145\1 5440\1   51\155\  141
                    \147\145  40\151\156 40\141    \163\16 3\
                     157\143\   151\141\16  4\151\1     57\156
                     40\167  \151\164\1   5040\      120\1
                     45\162\   15440\15    1\163\      040\14
                     140\1   64\162\1      41\144       \145\
                     155\14    1\162\       1534        0\157
                      \146\     040\11     747\         122\1
                      45\15      1\154\1  54\171          40
                      46\         012\101\16            3\16
                      3\15           7\143\15             1\14
                      1\16            4\145\163           54
                     40            \111\156\14         356
                    40\         125\163\145\14         440\
                    167\1        51\164\1  50         40\160\
                  145\162                              \155\151
                \163\163                                \151\1
              57\15656