Factorial

Score: 49.12 (pass)

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

Score: 49.12 (pass)

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

Score: 56.11 (pass)

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