Strtol

Score: 179.53 (pass)

#!perl -pl
for$0(qw~^/( te|lv/+10 le/11 b|m|tho/)*10**$&+( hu/*100+ $/) w/2 th/3 fo/4 fi/5 m|si/6 se/7 g/8 b|in/9 ne/1 y|z/0+ [a-z\s]/ \+\)/) .+/$&/ee \d(?=(\d{3})+$)/$&,~){eval"s/$0/g"}

Score: 183.53 (pass)

#!perl -pl
for$~(qw~^/( te|lv/+10 le/11 b|m|tho/)*10**$&+( $/) m/6 w/2 th/3 b/9 hu/*100+ fo/4 fi/5 si/6 se/7 g/8 in/9 ne/1 y|z/0+ [a-z\s]/ \+\)/) .+/$&/ee \d(?=(\d{3})+$)/$&,~){eval"s/$~/g"}

Score: 185.54 (pass)

#!perl -pl
for$~(qw~^/( te|lv/+10 le/11 b|m|tho/)*10**$&+( $/) m/6 w/2 th/3 b/9 hu/*100+ fo/4 fi/5 si/6 se/7 g/8 in/9 ne/1 y|z/0+ [a-z\s]/ \+\)/)~){eval"s/$~/g"}$_=eval;s/\d(?=(\d{3})+$)/$&,/g

Score: 187.55 (pass)

#!perl -pl
for$~(qw~one/1 ^/( te|lv/+10 le/11 b|m|tho/)*10**$&+( $/) m/6 tw/2 th/3 b/9 hu/*100+ fo/4 fi/5 si/6 se/7 h/8 ni/9 y|z/0+ [a-z\s]/ \+\)/)~){eval"s/$~/g"}$_=eval;s/\d(?=(\d{3})+$)/$&,/g

Score: 195.55 (pass)

#!perl -pl
for$~(qw~one/1 ^|on|and/$&( te|lv/+10 le/11 b|m|tho/)*10**$&+ $/) m/6 tw/2 th/3 b/9 hu/*100+ fo/4 fi/5 si/6 se/7 h/8 ni/9 y|z/0+ [a-z\s]/ \+\)/)~){eval"s/$~/g"}$_=eval;s/\d(?=(\d{3})+$)/$&,/g

Score: 272.56 (pass)

#!perl
@s=qw~z/0 wel/12 el/11 te/+10 th[^o]/3 m/|10**6| th/|1000| b/|10**9| hu/*100+ one/1 tw/2 fo/4 fi/5 si/6 se/7 ei/8 ni/9 ty/0+ [a-z]/~;map{for$a(@s){eval"s/$a/g"}@a=map{s/\+ ?$//;eval}split/\|/;$_='';$_+=shift(@a)*(shift@a||1)while@a;s/(\d)(?=(\d{3})+$)/$1,/g;print"$_\n"}<>

Score: 290.56 (pass)

#!perl
@s=qw~z/0 wel/12 el/11 te/+10 th[^o]/3 m/|10**6| th/|1000| b/|10**9| hu/*100+ one/1 tw/2 fo/4 fi/5 si/6 se/7 ei/8 ni/9 ty/0+ [a-z]/~;map{for$a(@s){eval"s/$a/g"}@a=map{s/\+ ?$//;eval}split/\|/;$_='';$_+=$a*$b while$a=shift@a,$b=shift@a;$_=eval;$_+=$a;s/(\d)(?=(\d{3})+$)/$1,/g;print"$_\n"}<>

Score: 340.58 (pass)

#!perl
@s=qw~0z 12wel 11el +10te 3th[^o] |10**6|m |10**3|th |10**9|b *100+hu 1one 2tw 4fo 5fi 6si 7se 8ei 9ni 0+ty~;map{for$a(@s){($b,$s)=$a=~/([^a-z]+)(.+)/;eval s/$s/$b/g}s/[a-z]//g;@a=reverse map{s/\+\s?$//;eval}split/\|/;$_='';$_.="+".$a*$b while$a=pop@a,$b=pop@a;$_=eval;$_+=$a;s/(\d)(?=(\d{3})+$)/$1,/g;print"$_\n"}<>

Score: 350.50 (pass)

#!perl
@s=qw~0z 12wel 11el Mm Ttho Bb *100+hu 1one 2tw 3th 4fo 5fi 6si 7se 8ei 9ni 0+ty +10te~;for(<>){for$r(@s){($b,$s)=$r=~/([^a-z]+)(.+)/;eval"s/$s/$b/g"}s/[a-z]//g;my$y="(($1)*10**9)+"if s/([^B]+)B//g;my$m="(($1)*10**6)+"if s/([^M]+)M//g;my$g="(($1)*1000)+"if s/([^T]+)T//g;$_=$y.$m.$g.$_;s/\+($| (\D))/$2/g;$_=eval;s/(\d)(?=(\d{3})+$)/$1,/g;print$_.$/}