Strtol

Score: 174.51 (pass)

#!perl -lp
($~='( h00bE9mE6thoE3tw2th3fo4se7ei8z0o1f5s6n9t10e)11y0een|lv+10 +')=~s/[+-E]+/push@_,$&;')|('/ge;s/\b($~.)/$_[$#--2]/g;s/E./0)*1$&+(0/g;$_=eval"($_)";s/\B(?=(...)+$)/,/g

Score: 176.51 (pass)

#!perl -lp
($~='( h00bE9mE6thoE3tw2th3fo4se7ei8z0o1f5s6n9t10e)11y0een+10lv+10 +')=~s/[+-E]+/push@_,$&;')|('/ge;s/\b($~.)/$_[$#--2]/g;s/E./0)*1$&+(0/g;$_=eval"($_)";s/\B(?=(...)+$)/,/g

Score: 195.53 (pass)

#!perl -l
$_='( h00bE9mE6thoE3twel12tw2th3fo4seve7ei8z0o1f5s6n9t10e)11y0een+10 +';%d=/[ a-z]+|[+-E]+/g;tr/+-E/|/s;$c=$_;$_=<>;s/(\b$c)|./$d{$1}/g;s/E./0)*1$&+(0/g;$_=eval"($_)";s/\B(?=(...)+$)/,/g;print

Score: 196.52 (pass)

#!perl -l
$_='( h00bE9mE6thoE3tw2th3fo4seve7ei8z0o1f5s6n9t0e)1 +(y0en+10lve+10)';%d=/[ a-z]+|[+-E]+/g;tr/+-E/|/s;$c=$_;$_=<>;s/(\b$c\b)|./$d{$1}/g;s/E./0)*1$&+(0/g;$_=eval"($_)";s/\B(?=(...)+$)/,/g;print