Factorial

Score: 57.13 (pass)

#!perl -l
$_++;for$i(1..pop){s/(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 57.14 (pass)

#!perl -l
$_++;for$i(1..pop){s/(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 57.14 (pass)

#!perl -l
$_++;for$i(1..pop){s/(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 57.14 (pass)

#!perl -l
$_++;for$i(1..pop){s/(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 60.14 (pass)

#!perl -l
$_++;for$i(1..pop){s/.*?(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 61.14 (pass)

#!perl -l
$_++;for$i(1..pop){s/^.*?(.{1,6})0*$/$1*$i/e}print/(.)0*$/

Score: 63.12 (pass)

#!perl -l
$_=1;for$i(1..pop){$_*=$i;($_)=/(\d{1,6})0*$/}print/(\d)0*$/