YAPC::Europe 2001

The Amsterdam obfuscation

{local$/;$_.=join$,,$"x85,":1D5E6E7*23",
"1!>1##'3\@4\@?141V5(1W6W3W'10404?H`C3C"
,"4Z7",'Z'x30,"\x82","3\x87","4","\x8F"x
25,""x21,"59","876";s<(.)(\d)>[$1
x$2]exgmc;$/=$_;$_=q>;s;\s; ;g;push@;,$`
while(m;\;;g);$\="\r";;$;=join';;',map{"
push\@?,\\\\substr(\$_,@{[length]},1);"}
@;;eval$;;$|=sub{select$!,$?,$#,.03};@;=
Grep//,Map{Chr(ord)}@;if(my$b=each(%@));
for$l(split//g,$/){substr$_,ord($l)-32,0
, chop;&{$|};print map{$$_}@?}>;eval(lc)
}print$/;BEGIN{$_=' 2 7 5 4 4 511'}
      
Grec McCarroll
<Created by Philippe 'BooK' Bruhat for Dave Cross, August 2001-July 2003>
[ PostScript ] [ PDF ] [ Perl source ]