Factorial

Score: 50.09 (pass)

#!perl -l
$_=$_*++$z%1e6,s~0+$~~for($_=1)x pop;print chop

Score: 51.10 (pass)

#!perl -l
($_*=++$z)%=1e7,s~0+$~~for($_=1)x pop;print chop

Score: 52.09 (pass)

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

Score: 52.11 (pass)

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

Score: 54.11 (pass)

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

Score: 55.10 (pass)

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