Select Code to Download

$V=sub{(@_)?return&$V(@_[1..$#_]),shift,eval{(++$::x==$::a*4+$::p*7+
$::h*4)?eval{eval{$::a?($::p?($::h?'':$::h++):$::p++):$::a++;};' ';}
:''}:();};$a=1;$_="42.redbig7ik6icy0adf3Hilfred1Preg1Zim8why5tonamb"
."itsfud56Jim9";~y#H420135-9bigZmwdfy#h\n #;s% %%g;split//;print&$V;

# The answer is 42.
  $r=42+              22;for(0..$r
...

   '.'){!($_ eq'.')?(($_ eq':')?$r++:
        --$r):print chr($r);}}