Factorial

Score: 51.12 (fail)

#!perl
$_=$t=pop;while($t>1){$_*=--$t}/(\d)0*$/;print"$1
"

Score: 53.12 (pass)

#!perl -l
$_=1;for$i(1..pop){$_=$i*$_%1e7;s/0*$//}print$_%10

Score: 55.12 (pass)

#!perl -l
$_=1;for$i(1..pop){$_*=$i;s/0*$//;$_%=1e6}print$_%10

Score: 62.15 (pass)

#!perl -l
$_=1;for$i(1..pop){$_*=$i;($_)=/(.{0,5}?.)0*$/}/.$/;print$&

Score: 64.17 (pass)

#!perl
$_=1;for$i(1..pop){$_*=$i;($_)=/(.{0,5}?.)0*$/}/(.)$/;print"$1
"

Score: 65.17 (pass)

#!perl
$_=1;for$i(1..pop){$_*=$i;/(.{0,5}?.)0*$/;$_=$1}/(.)$/;print"$1
"

Score: 66.18 (fail)

#!perl
$_=1;for$i(1..pop){$_*=$i;/(.{0,5}?.)0*$/;$_=$1}/(.)$/;print"$1 
"

Score: 69.16 (pass)

#!perl
$_=1;for$i(1..pop){$_*=$i;s/.*?(.{0,5}[1-9])0*$/$1/}/(.)$/;print"$1
"

Score: 88.19 (pass)

#!perl
$t=pop;$_=1;for($i=1;$i<=$t;$i++){$_*=$i;s/.*?(.?.?.?.?.?[1-9])0*$/$1/}/(.)$/;print"$1
"

Score: 110.13 (pass)

just trying to get on thee board after my last amazingly wrong, too good to be true submission. *&^%^%$

#!perl
$t=pop;$c=$_=1;for($i=1;$i<=$t;$i++){$_*=$i;$c*=$i;s/.*?(\d?\d?\d?\d?\d?\d?\d?[1-9])0*$/$1/}/(\d)$/;print"$1
"