Factorial

Score: 49.09 (pass)

tie optimization

#!perl
for$~(0..pop){$_=$`%9e9*$~||1;s~0*$~
~}print/.
/g

Score: 49.11 (pass)

#!perl
for$n(0..pop){$_=$_*$n%1e8||1;s/0*$/
/}print/.
/g

Score: 52.10 (pass)

#!perl -l
for$n(++$_..pop){($_*=$n)%=1e8;s/0*$//}print chop

Score: 60.11 (pass)

non cheating but still bad

#!perl -l
for$n(++$_..pop){$_*=$n;s/0*$//;s/.*(.{6})/$1/}print chop

Score: 71.11 (pass)

cheating

#!perl -l
for$n(++$_..pop){s/./'$_.=0;'.'++$_;'x$&x$n/eg;eval}print/([^0])0*$/