Factorial

Score: 61.12 (pass)

#!perl -l
$Z=1;map{($Z)=($Z*=$_)=~/(.{1,9}?)0*$/}1..pop;print chop$Z

Score: 62.11 (pass)

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