Factorial
Score: 51.12 (fail)
#!perl -l for$k(++$_..pop){$_=$k*$_%1e6;s/0*$//}print$_%10
Score: 51.12 (pass)
#!perl -l for$k(++$_..pop){$_=$k*$_%1e6;s/0*$//}print$_%10