Strtol

Score: 162.58 (pass)

#!perl -pal
$,=($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,unpack+x8a,crypt$_,BJ)<0?$,-($=<-19?18+$=.0:$=):$=<4&&($"|=reverse$,,",000"x$=)?0:"$,00"for@F,ai;$_=reverse$"

Score: 162.59 (pass)

#!perl -pal
$,=($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,unpack+x8a,crypt$_,BJ)<0?$,-($=<-19?18+$=.0:$=):$=<4&&($"|=reverse$,,',000'x$=)?0:100*$,for@F,ai;$_=reverse$"

Score: 163.59 (pass)

perldoc -f unpack

#!perl -pal
$,=($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,unpack+x8a,crypt$_,BJ)<0?$,-($=<-19?$=.0+180:$=):$=<4&&($"|=reverse$,,',000'x$=)?0:100*$,for@F,ai;$_=reverse$"

Score: 165.58 (pass)

#!perl -pal
$,=($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,substr+crypt($_,BJ),8,1)<0?$,-($=<-19?$=.0+180:$=):$=<4&&($"|=reverse$,,',000'x$=)?0:100*$,for@F,ai;$_=reverse$"

Score: 166.58 (pass)

took me quite a while to notice that i could drop the entire post processing regex

#!perl -pal
$,=($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,substr+crypt($_,BJ),8,1)<0?$,-($=<-19?$=.0+180:$=):$=<4?($x|=reverse($,.',000'x$=),0):100*$,for@F,ai;$_=reverse$x

Score: 181.50 (pass)

My second time pulling ahead of someone by .01 points in the same day! Too bad I need ten fewer to make any more headway...

#!perl -lp
for$i(" h",qw{b m ho lv|.?te l y|z on w th fo f si s g n},"","(.*?) (E.)",$"){s/$i[a-z]*/(qw(00 E9 E6 E3 +10),11,0..9,"","+($1)*1$2","+")[$c]/ge,$c++}$_=eval;s/\B(?=(...)+$)/,/g

Score: 181.51 (pass)

tweaked sprintf

#!perl -pal
$_=',000'x4;for$;(@F,ai){$,=($==5-index+fHlcC_pD5tmbz14vJr6dLQRyUE0ZFSkwi,substr+crypt($;,BJ),8,1)<0?$,-($=<-19?$=.0+180:$=):$=<5?$_|=sprintf"%*d",4*$=,$,:100*$,}s/[0,]*(?!$)//

Score: 184.52 (pass)

artificial intelligence

makes a change from alien intelligence

#!perl -pal
$_=',000'x4;for$;(@F,ai){$,=($==4-index+fHlcCpD5tmbz14vJr6dLQRyUE0ZFSkwi,substr+crypt($;,BJ),8,1)<0?$,-($=<-19?$=.0+180:$=):$=<4?$_|=$"x4x$=.sprintf",%3d",$,:100*$,}s/[0,]*(?!$)//

Score: 186.45 (pass)

hm. the crypt part seems ok, but math code is awful. not to mention the output...

#!perl -pal
$,-=-19>($==4-index+fCclHpD5tmbz14vJr6dLQRyUE0ZFSkwi,substr+crypt($_,BJ),8,1)?$=.0+180:$=>0?$,*($={$=}=$,.'000'x$=,$=>3?-99:1):$=for@F;$_=$={1}+$={2}+$={3}+$,;s/(?!^)(?=(...)+$)/,/g