Factorial

Score: 49.12 (pass)

#!perl -l
($z=$z*$_%1e9)=~s/0*$//for++$z..pop;print$z%10

Score: 50.12 (pass)

inspiration struck, and I'm getting very close!

#!perl -l
$_*=$z,s/0*$//,$z=$_%1e7for++$z..pop;print$z%10

Score: 60.13 (pass)

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

Score: 65.11 (pass)

quick'n'dirty

#!perl -l
$_=1;for$a(1..pop){$_*=$a;s/0*$//;s/\d*(\d{7})/$1/};print/.$/g