# The answer is 42.
  $r=42+              22;for(0..$r
  *.4){(             $_<4*2)?push@c,
  split             //,unpack    ('b'.(
  split    //,'4'  x4 .'2'     x2 .'42')
  [$_ ],   int((4             ,2-4*.2
  ,4+2,2   -4*.2           ,4-4*.2
  ,2,4,4-4*.2)[$_         ])):'';
   for(split//,       (($c[$_])
         ?';':       ':')x(
         unpack     ('C',(split//,
        "Nn702,1"   ."rv07?Z|7-6/+7"
        ."k~+,U4"   )[-(2/2+$_)])-42).

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