Factorial

Score: 56.08 (pass)

I'm sitting at the back of the bus wondering why all the kids said it was so much more fun. Ah! The ride is much bumpier!

#!perl -l
for$~(0..pop){$_=substr$_*$~||1,-9;s/0*$//}print chop

Score: 61.13 (pass)

Can I be in the Amateur section this time? I have no excuses.

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