Strtol

Score: 196.31 (pass)

Improved tiebreak (but not lisibility, I'm afraid !)

#!perl -pla
@,{'JZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸòünñ'=~/./g}=(1..20,map$_.0,3..10,1E5,100,1E8);map{$,=$,{$_=chr 8*/n/+unpack'%8C*',$_};$*=y!ünñ!!?!($;+=$**$,):/ò/?$**$,:$*+$,}@F}{$_=$*+$;;s;.(?=(...)+$);$&,;g

Score: 196.37 (pass)

broke the 200 barrier. That was a fair goal...

#!perl -pla
@a{'JZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸònüñ'=~/./g}=(1..20,map$_.0,3..10,100,1E5,1E8);map{$b=$a{$_=chr 8*/n/+unpack'%8C*',$_};$s=/[ünñ]/?!($c+=$b*$s):/ò/?$b*$s:$b+$s}@F}{$_=$s+$c;s/.(?=(...)+$)/$&,/g

Score: 209.38 (pass)

Waou, first try for it, and first hole since (too?) many months...

#!perl -pla
@a{'ÀJZ¼ªT)²O‡—kpéÕQ^³¤4"AŠŸnüñ'=~/./g}=(0..20,map{10*$_}3..9,1E2,1E5,1E8);map{$_=chr(8*/n/+unpack"%8c*",$_);if(/n|ü|ñ/){$c+=$a{$_}*$s;$s=0}else{$s+=/ò/?99*$s:$a{$_}}}@F}{$_=$s+$c;s/.(?=(...)+$)/$&,/g