Strtol

Score: 140.36 (pass)

Up another place; and you still have an hour to catch Michael Thelen

#!perl -lpa
$*+=/a|io/?($@+=$**1e3**y/bit//,-$*):/te|l/.8*/g|^n/+4*/f|s/+2*/s|w|th/+/ne|th|fi|ev/.$%x/y/+99*/d/*$*for@F,a;$_=$@;s/\B(?=(...)+$)/,/g

Score: 141.35 (pass)

#!perl -lpa
$*+=/a|io/?($@+=$**1e3**y/bit//,-$*):/te|l/.8*/g|^n/+4*/f|s/+2*/s|w|th/+/ne|th|fi|ev/.$%x/y/+99*/d/*$*for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 144.35 (pass)

#!perl -lpa
/a|io/?($@+=$**1e3**y/bit//,$*=0):($*+=/te|l/.8*/g|^n/+4*/f|s/+2*/s|w|th/+/ne|th|fi|ev/.$%x/y/+99*/d/*$*)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 146.34 (pass)

#!perl -lpa
/a|io/?($@+=$**1e3**y/bit//,$*=0):($*+=/te|l/.(/ne|th|fi|ev/+2*/s|w|th/+4*/f|s/+8*/g|^n/).$%x/y/+99*/d/*$*)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 147.35 (pass)

#!perl -lpa
/a|io/?($@+=$**1e3**y/bit//,$*=0):($*+=/ne|th|fi|ev/+2*/s|w|th/+4*/f|s/+8*/g|^n/.$%x/y/+10*/te|l/+99*/d/*$*)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 148.36 (pass)

#!perl -lpa
/il|d/?($@+=/o/*$**1e3**y/bit//,$**=/r/*100):($*+=/ne|th|fi|ev/+2*/s|w|th/+4*/f|s/+8*/g|in/.$%x/y/+/te|l/*10)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 158.37 (pass)

#!perl -lpa
@@{elontwthfofisiseeini=~/../g}=(1,1..9);/il|d/?($@+=/o/*$**1e3**y/bit//,$**=/r/*100):($*+=@@{/(..)/}.$%x/y/+/te|l/*10)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 161.36 (pass)

#!perl -lpa
@@{elontwthfofisiseeini=~/../g}=(1,1..9);/il|a/?($@+=$**1e3**y/bit//,$*=0):/d/?($**=100):($*+=@@{/(..)/}.$%x/y/+/te|l/*10)for@F;$_=$@+$*;s/\B(?=(...)+$)/,/g

Score: 165.40 (pass)

#!perl -lpa
@v{elontwthfofisiseeini=~/../g}=(1,1..9);/il|a/?($t+=$n*1e3**(1+/b/+/i/),$n=0):/d/?($n*=100):($n+=@v{/(..)/}.$%x/y/+/te|l/*10)for@F;$_=$t+$n;s/\B(?=(...)+$)/,/g

Score: 168.40 (pass)

#!perl -lpa
@v{elontwthfofisiseeini=~/../g}=(1,1..9);/il|a/?($t+=$n*1e3**(1+/b/+/i/),$n=0):/d/?($n*=100):($n+=@v{/(..)/}*(/y/*9+1)+/te|l/*10)for@F;$_=$t+$n;s/\B(?=(...)+$)/,/g

Score: 169.40 (pass)

#!perl -lpa
@v{elontwthfofisiseeini=~/../g}=(1,1..9);/il|ho/?($t+=$n*1e3**(1+/b/+/i/),$n=0):/d/?($n*=100):($n+=@v{/(..)/}*(/y/*9+1)+/te|l/*10)for@F;$_=$t+$n;s/\B(?=(...)+$)/,/g

Score: 171.40 (pass)

#!perl -lpa
@v{elontwthfofisiseeini=~/../g}=(1,1..9);/il|ho/?($t+=$n*1e3**(1+/b/+/i/),$n=0):/d/?($n*=100):($n+=/../*$v{$&}*(/y/?10:1)+/te|l/*10)for@F;$_=$t+$n;s/\B(?=(...)+$)/,/g

Score: 172.42 (pass)

Exactly tied with Stephen. Wonder how long that'll last?

#!perl -lpa
@v{ontwthfofisiseeiniteel=~/../g}=1..11;/il|ho/?($t+=$n*1e3**(1+/b/+/i/),$n=0):/d/?($n*=100):($n+=/../*$v{$&}*(/y/?10:1)+/tee|lv/*10)for@F;$_=$t+$n;s/\B(?=(...)+$)/,/g

Score: 184.43 (pass)

#!perl -lpa
@v{zeontwthfofisiseeiniteel=~/../g}=0..11;for(@F){/il|ho/?($t+=$n*1e3**(/t/?1:/m/?2:3),$n=0):/d/?($n*=100):($n+=/../&&$v{$&}*(/y/?10:1)+/tee|lv/*10)}$_=$t+$n;s/\B(?=(\d{3})+$)/,/g