Factorial

Score: 48.08 (pass)

catch BoB?

#!perl
$}=substr$}*".$_",~6for++$}..pop;print+chop$},$/

Score: 48.08 (pass)

slightly better tiebreak

#!perl -l
$}=substr$}*".$_",~6for++$}..pop;print+chop$}

Score: 48.09 (pass)

#!perl
$}=substr$}*".$_",-7for++$}..pop;print+chop$},$/

Score: 50.11 (pass)

#!perl -l
$_=$_*++$}%9e9,s/0+$//for($_=1)x pop;print chop

Score: 52.11 (pass)

first shot, but it's too late to think :) 

#!perl -l
$_*=++$n,$_%=1e6,s/0+$//for($_=1)x pop;print chop