Strtol

Score: 139.53 (pass)

uh. this is getting painfully difficult to golf..

40 strokes ahead of tanma, though

#!perl -pl
s/[bam]/)*1E$&+(/g;for$,(qw/one w h.?r fo fi x se g in te|lv
le/){++$";s/$,/+$"/g}y/zyma-x /00639 0/d;$_=eval"($_)";s/\B(?=(...)+$)/,/g

Score: 141.55 (pass)

#!perl -pl
s/[bam]/)*1E$&+(/g;for$i(qw/one w hi?r fo fi x se g in (te|lv) le/){++$n;s/$i/+$n/g}y/zyma-x /00639x0/d;$_=eval"($_)";s/\B(?=(...)+$)/,/g

Score: 144.53 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le#){++$n;s/$i/+$n/g}s/[bam]/)*1E$&+(/g;y#zyma-x #00639x0#d;$_=eval"($_)";s/.+?(?=(...)+$)/$&,/g

Score: 148.53 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le#){++$n;s/$i/+$n/g}s/a|m|b/)*1E$&+(/g;y#ambzydF-x #369000#d;$_=eval"($_)";s/..?.?(?=(...)+$)/$&,/g

Score: 160.52 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le#){++$n;s/$i/+$n/g}s/ou|m|b/')*1E'.uc($&).'+('/ge;y#OMBzydF-x #369000#d;$_=eval"($_)";s/..?.?(?=(...)+$)/$&,/g

Score: 160.53 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le us m b#){++$n;s/$i/+$n/g}s#.1[234]#)*10**(3*$&-33)+(#g;y#zyda-x #000#d;$_=eval"($_)";s/..?.?(?=(...)+$)/$&,/g

Score: 161.53 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le us m b#){++$n;s/$i/+$n/g}s#.1[234]#)*10**(3*$&-33)+(#g;y#zyda-z #0000#d;$_=eval"($_)";s/..?.?(?=(...)+$)/$&,/g

Score: 172.52 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le us m b hu#){++$n;s/$i/+$n/g}y#ya-z#0#d;s#.1[234]#)*10**(3*$&-33)+(#g;s# .15#00#g;$_=eval"0+($_)";s/..?.?(?=(...)+$)/$&,/g

Score: 181.52 (pass)

#!perl -pl
for$i(qw#one w hi?r fo fi x se g in (te|lv) le us m b hu#){++$n;s/$i/+$n/g}s#y#*10#g;y/a-z//d;s#.1[234]#)*10**(3*$&-33)+(#g;s# .15#00#g;$_=eval"0+($_)";s/.{1,3}(?=(...)+$)/$&,/g