Strtol

Score: 193.49 (pass)

#!perl -lp
$"='|';@_{@_=qw/tho m b h twel z o tw th fo f si s ei n t e/}=(map(")*10**$_+(",3,6,9),'*100',map"+$_",12,0..11);s/een/+10/g;s/y/*10/g;s/(@_)\w*/$_{$1}/g;s/.+/"($&)"/ee;s/.(?=(...)+$)/$&,/g

Score: 195.50 (pass)

#!perl -lp
$"='|';@_{@_=qw/tho m b h twel z o tw th fo f si s ei n t e/}=(map(")*10**$_+(",3,6,9),'*100',map("+$_",12,0..11));s/een/+10/g;s/y/*10/g;s/(@_)\w*/$_{$1}/g;$_=eval"($_)";s/.(?=(...)+$)/$&,/g;

Score: 197.50 (pass)

#!perl -lp
$"='|';@_{@_=qw/tho m b h twel z o tw th fo f si s ei n t e/}=(map(")*10**$_+(",3,6,9),'*100',map("+$_",12,0..11));s/een/+10/g;s/y/*10/g;s/(@_)\w*/$_{$1}/g;$_=eval"($_)";s/(.)(?=(...)+$)/$1,/g;

Score: 203.50 (pass)

Just some "refactoring".

#!perl -lp
$"='|';@_{@_=qw/tho m b h twel z o tw th fo f si s ei n t e/}=(map(")*10**$_+(",3,6,9),'*100',map("+$_",12,0..11));s/een\b/+10/g;s/y\b/*10/g;s/\b(@_)\w*/$_{$1}/g;$_=eval"($_)";s/(.)(?=(...)+$)/$1,/g;

Score: 206.48 (pass)

This is not better than by current one, but I just love the use of @_{/^(@_)/}

#!perl -lpa
$"='|';@_{@_=qw/tho m b h twel z o tw th fo f si s ei n t e/}=(map(")*10**$_+(",3,6,9),'*100',map"+$_",12,0..11);$_=eval'('.join('',map {@_{/^(@_)/},/een/&&'+10',/y/&&'*10'}@F).')';s/.(?=(...)+$)/$&,/g

Score: 234.46 (pass)

I really hoped you would notice that! Now, what about the other 100 characters :)

#!perl -lp
$"='|';@_{@_=qw/twel z o tw th fo f si s ei n t e/}=(12,0..11);($tho,$m,$b)=(3,6,9);($een,$y)=qw/+ */;s/\b(tho|m|b)\w+/)*10**$$1+(/g;s/(een|y)\b/$$1 10/g;s/\b(@_)\w*/+$_{$1}/g;s/\bh\w+/*100/g;$_= eval"($_)";s/(.)(?=(...)+$)/$1,/g;

Score: 244.47 (pass)

#!perl -lp
$"='|';@n{@n=qw/twel z o tw th fo f si s ei n t e/}=(12,0..11);($tho,$m,$b)=(3,6,9);($een,$y)=qw/+ */;s/\b(tho|m|b)\w+/)*10**$$1+(/g;s/(een|y)\b/$$1 10/g;s/\b(@n)\w*/+$n{$1}/g;s/\bh\w+/*100/g;$_= eval"($_)";s/(.)(?=(...)+$)/$1,/g;END{exit};