Strtol

Score: 61.46 (fail)

Got Error: Can't find string terminator "=" anywhere before EOF at gimbo-strtol.pl line 2. (also got your next solution which appears to have all the code in it :) )

#!perl -lap
%t=unpack"C*",q=go`ZGa^p

Score: 208.43 (pass)

#!perl -lap
map{$.=0;$_=$.+=20..80?10:1for@t{'l¾¼”ƒá„‡?WaB3J¹Íw(pZA 4©$PE"RLÇ'=~/./g};$.=$.*3+ord for//g;$s=($n=$t{chr$.%248})<91?$s+$n:$s.0 x($n-89);$t+=$s,$s=0if$n>91}@F;$_=$t+$s;1while s/(\d)(...($|,))/$1,$2/

Score: 209.43 (pass)

#!perl -lap
map{$.=0;$_=$.+=20..80?10:1for@t{'l¾¼”ƒá„‡?WaB3J¹Íw(pZA 4©$PE"RLÇ'=~/./g};$.=$.*3+ord for/./g;$s=($n=$t{chr$.%248})<91?$s+$n:$s.0 x($n-89);$t+=$s,$s=0if$n>91}@F;$_=$t+$s;1while s/(\d)(...($|,))/$1,$2/

Score: 214.42 (pass)

#!perl -lap
map{$.=0;%t=map{(ord,$.+=20..80?10:1)}'l¾¼”ƒá„‡?WaB3J¹Íw(pZA 4©$PE"RLÇ'=~/./gs;$.=$.*3+ord for/./g;$s=($n=$t{$.%248})<91?$s+$n:$s.0 x($n-89);$t+=$s,$s=0if$s>999}@F;$_=$t+$s;$\=",$&".$\while$_>999&&s/...$//

Score: 218.43 (pass)

#!perl -lap
%t=map{(ord,$i+=$i<20?1:10)}'žB¾~Æ¡Kj¹µ+€Œo§l%"¼ƒ
†—4U2JAœPHÁ'=~/./gs;map{$c=$c*3+ord for/./g;$s=($n=$t{$c%212})<99?$s+$n:$s.0 x($n/10-10);$t+=$s,$s=0if$s>999;$c=0}@F;$_=$t+$s;$\=",$&".$\while$_>999&&s/...$//

Score: 219.46 (pass)

#!perl -lap
%t=unpack"C*",q|L€MY—œaŒK^ƒ†žZO%GoJ¾WBXÆU+N¡T¹QµP=Ì[jRlH~V¼)Ád"3
2]§IKS|;map{$c=$c*3+ord for/./g;$s=($n=$t{$c%212}-91)<0?$s-$n:$s.0 x$n;$t+=$s,$s=0if$s>999;$c=0}@F;$_=$t+$s;$\=",$&".$\while$_>999&&s/...$//

Score: 225.38 (pass)

#!perl -lap
%t=unpack"C*",q=€BÆ+
¡—Zµ¹
œaŒj	^ƒ999&&s/...$//

Score: 230.37 (pass)

#!perl -lap
%t=unpack"C*",q=€BÆ+
¡—Zµ¹
œaŒj	^ƒ

Score: 231.41 (fail)

Found golfer: (gimbo) Hole 'strtol' /home/geoff/dev/perlgolf/judging/gimbo.pl: Running test 1 ... Ok /home/geoff/dev/perlgolf/judging/gimbo.pl: Running test 2 ... Unexpected STDOUT: Expected: 1 but got: 73 (You may need to resubmit as

#!perl -lap
%t=unpack"C*",q=gob	'
#`Zc
Ga	^p<+2d6(PK[jF$I-:O;=;map{$c=$c*26-97+ord for/./g;($n=$t{$c%118})<91?($s+=$n):($n-=91)?($t+=$s.0 x$n,$s=0):($s*=100);$c=0}@F;$_=1e12+$t+$s;s/^1|.../,$&/g;s/^,1[0,]+(?=.)//

Score: 234.40 (pass)

#!perl -lap
%t=unpack"C*",q=gob	'
#`Zc
Ga	^p<+2d6(PK[jF$I-:O;=;map{$c=$c*26-97+ord for/./g;($n=$t{$c%118})<91?($s+=$n):($n-=91)?($t+=$s.0 x$n,$s=0):($s*=100);$c=0}@F;$_=1e12+$t+$s;s/^1|.../,$&/g;s/^,1[0,]+(?=.)//

Score: 236.40 (pass)

#!perl -lap
%t=unpack"C*",q=go`ZGa^p<P$:O;b	'
#c
<	+2d6(jFK[I-=;map{$c=$c*26-97+ord for/./g;($n=$t{$c%118})<91?($s+=$n):($n-=91)?($t+=$s.0 x$n,$s=0):($s*=100);$c=0}@F;$_=1e12+$t+$s;s/^1|.../,$&/g;s/^,1[0,]+(?=.)//

Score: 241.40 (pass)

#!perl -lap
%t=unpack"C*",q=g/o.`"zG}0|p\p!$,:4O1;$b#	&'-#'c*+>< )+3%R~6HjfK{I2-(=;map{$c=$c*26-97+ord for/./g;($n=$t{$c%118}-32)<91?($s+=$n):($n-=91)?($t+=$s*1e3**$n,$s=0):($s*=100);$c=0}@F;$_=1e12+$t+$s;s/^1|.../,$&/g;s/^,1[0,]+(?=.)//

Score: 252.39 (pass)

#!perl -lp
%t=q|g/o.`"zG†0…p\p!$,:4O1;$b#	&'-#'c*+>< )+3%R‡6HjfK„I2-(|=~/./g;map{if(/ /){($n=-32+ord$t{chr$c})<99?($s+=$n):($n-=100)?($t+=$s*1e3**$n,$s=0):($s*=100);$c=0}else{$c=($c*26-97+ord)%118}}/./g,$";$_=$s+$t;s/.(?=.)/(length$')%3?$&:"$&,"/eg

Score: 358.51 (pass)

I don't think I understand this one...

#!perl -l
%t=(103,15,111,14,96,2,26,90,71,-1e6,5,16,19,-1e3,112,60,14,80,12,1,36,12,58,20,79,17,59,4,98,3,9,6,39,13,35,7,99,10,7,11,4,30,60,0,8,9,43,19,28,5,2,50,29,-1e9,54,40,106,70,75,-1,73,18,45,8);$_=<>;map{if(/ /){($n=$t{$c})>0?($s+=$n):(~$n?($t+=$s*-$n,$s=0):($s*=100));$c=0}else{$c=($c*26-97+ord)%118}}/./g,$";$_=$s+$t;s/.(?=.)/(length$')%3?$&:"$&,"/eg;print