Factorial

Score: 50.13 (pass)

#!perl -l
$_*=$~,/0*$/,$~=$`%1e9for($~=1)..pop;print$~%10

Score: 50.13 (pass)

#!perl -l
$_*=$~,/0*$/,$~=$`%9e9for($~=1)..pop;print$~%10

Score: 51.13 (pass)

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

Score: 52.13 (pass)

#!perl -l
$_*=$x,s/0*$//,$x=$_%1e9for($x=1)..pop;print$x%10