Factorial

Score: 69.12 (pass)

#!perl
++$p;for(1..pop){until($_%5){$_/=5;$p/=2}$p=$p%10**5*$_}print$p%10,$/

Score: 69.13 (pass)

Same score, diff solution...

#!perl
++$x;for(1..pop){$_*=$x;s/0*$//;/\d{0,6}$/;$x=$&}$x=~/\d$/;print$&,$/