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