Strtol

Score: 211.60 (pass)

A little waltzing around...

#!perl -pl
for(reverse
split){$y.=0
x(/ed/*(2-($i=length$y)%3)+/y/*!($i%3)or
3*/b|a/+6*/io/-$i);for$i(%n=z0one1wo2hr3fo4fi5x6se7g8ni9ten01le11lv21wen2ir3een1=~/\d+|\D+/g){$y.=$n{$i}x/$i/}}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 212.59 (pass)

Sinking deeper and deeper in code depravation...

#!perl -pl
for(reverse
split){map$y.=0
x$_,3*/b|a/+6*/io/-($i=length$y),/ed/*(2-($i%=3))+/y/*!$i;for$i(%n=z0one1wo2hr3fo4fi5x6se7g8ni9ten01le11lv21wen2ir3een1=~/\d+|\D+/g){$y.=$n{$i}x/$i/}}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 214.59 (pass)

Here I am, frolicking in the evergreen fields of dubiousness.

#!perl -pl
for(reverse
split){map$y.=0
x$_,3*/b|a/+6*/io/-($i=length$y),/ed/*(2-($i%=3))+/y/*!$i;for$i(%n='z0one1wo2hr3fo4fi5x6se7g8ni9ten01le11lv21wen2ir3een1'=~/\d+|\D+/g){$y.=$n{$i}x/$i/}}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 220.58 (pass)

Regexes, regexes everywhere An evil course begetting a tainted script Regexes, regexes everywhere Yet there still strokes to skip

There was a young man called Yanick, Who played golf while in a blind panic. He used 'reverse' twice, What in the name of Holy Living $*&@!! was he thinking?!!

#!perl -pl
for(reverse split){map$y.=0
x$_,3*/b|a/+6*/io/-($i=length$y),/ed/*(2-$i%3),/y/*!($i%3);for$i(%n='z0one1wo2hr3fo4fi5x6se7g8ni9ten01le11lv21wen2ir3'=~/\d+|\D+/g){$y.=$n{$i}x/$i/}$y.=/een/}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 225.59 (pass)

Many thanks to /-\ndrew for his mrmagoo.pl

#!perl -pl
for(reverse
split){$i=length$y;map$y.=0
x$_,3*/b|a/+6*/io/-$i,/ed/*(2-$i%3),/y/*!($i%3);for$i(%n='z0one1wo2hr3fo4fi5x6se7g8ni9ten01le11lv21wen2ir3'=~/\d+|\D+/g){$y.=$n{$i}if/$i/}$y.=1if/een/}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 243.62 (pass)

I can't say how surprised I am that it actually pass the tests...

#!perl -pl
for(reverse
split){$i=length$y;map$y.=0
x$_,3*/b|and/+6*/ion/-$i,/dred/*(2-$i%3),/ty/*!($i%3);for$i(%n='z0one1wo2thre3fo4fi5ix6sev7eig8ni9ten01ele11lve21twen2thir3'=~/\d+|\D+/g){$y.=$n{$i}if/$i/}$y.=1if/teen/}$y=~s/...\B/$&,/g;$_=reverse$y

Score: 368.70 (pass)

Big, ugly, but at least it's a start.

#!perl -pl
for(reverse split){$y.=0 x(($1eq'm'?6:9)-length$y)if/(m|b)illion/;$y.=0 x( 3 - length $y )if/thousand/;$y.=0 x(2-(length$y)%3)if/hundred/;/ty/and!((length $y)%3)and$y.=0;for$i(%n=qw/zero 0 one 1 two 2 three 3 fou?r 4 fi(f|ve) 5 six 6 seven 7 eight 8 nine 9 ten 01 eleven 11 twelve 21 twen 2 thir 3/){$y.=$n{$i}if/$i/}$y.=1if/teen/}$y=~s/...(?=.)/$&,/g;$_=reverse$y