Factorial

Score: 50.11 (pass)

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