($Q='binmode(STDOUT)
;$q="" ;whi
le($ p=<
>){ ch
om p$ p;
$p =~s ########
/[ ^! ### ##
-z ]/ / ## ## ## ##
gs ;$ q. = # #### ##
$p ; $z =" " ;$ b =l ## ## # #
eng th ($ q)- (l e ngth ($ q) ## ### #
%5);$p=0 ;f o r (;$p <$ b ;$p+=5){($h, $ ## # #########
i,$e ,$ d, $a)=unpack" C *",subs tr ($q, ## ## ## ###
$p ,5 );$ x= $h -3 3 +90 *($ i-## ############## ####
3 3+9 0 * ( $e -33 +90*($d-3 3 ## ### ## +9 ###
0 *($ a - 33)))); $ z @@@@ . = ## ## ## p
ack " V" ,$x @@ @ @@@@@@ ; }$ ## # q
=su b s t r( @@@@@@ @@@@@@ $ q, ###$p);
pr int $ z; } @@@@@ @@@@ if (" "ne
$q) { $y = le ng @@@ t h ( $
q );($ h , $i,$ e,$ d ,
$a) = un p ack " C5
", "$q! ! !!" ; $
x= $ h- 33 +9 0 * (
$ i - 3 3+9 0*($e -33+9 0*( $d -3
3+ 90 *($ a- 33)) )) ;$z= p ack
" V ", $x; for(;$y<5;$y + +){ c ho p$
z; } pr i nt$ z; }')=~ s/[ ''
`@# ]//g ;eval "" ."
$Q ";
|