Factorial

Score: 83.16 (pass)

#!perl
$a=pop;$a+=$a?0:1;$_=100001;for$b(1..$a){$_*=$b;/(\d{6})0*$/;$_=$1}print/(.)0*$/,$/

Score: 85.16 (pass)

#!perl
$b=pop;$b+=$b?0:1;$_=100001;for$i(1..$b){$_*=$i;/(\d{6})0*?$/;$_=$1}print/(.)0*?$/,$/