Factorial

Score: 51.08 (pass)

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

Score: 51.09 (pass)

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

Score: 55.10 (pass)

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

Score: 57.13 (pass)

#!perl -l
for$n(0..pop){$_=$1*$n||1;/(.{1,6}?)0*$/}print/(.)0*$/

Score: 58.10 (pass)

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

Score: 63.12 (pass)

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

Score: 66.12 (pass)

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