YAPC::Europe 2001

{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,"Èè5Ü9Ü","8Ü7Ü6";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 5ãã1Ý1Ý'}