Factorial

Score: 67.08 (fail)

#!perl -l
$z=1;for(1..$zRGV[0]){$z=$_*substr$z,-6;$z=~s|0*$||}print chop$z

Score: 67.08 (pass)

Corrected $zRGV to $ARGV

#!perl -l
$z=1;for(1..$ARGV[0]){$z=$_*substr$z,-6;$z=~s|0*$||}print chop$z

Score: 67.09 (pass)

Tie Breaker update and get rid of extra variable.

#!perl -l
$T=1;for(1..$ARGV[0]){$T=$_*substr$T,-6;$T=~s|0*$||}print chop$T

Score: 67.10 (pass)

TieBreaker update

#!perl -l
$A=1;for(1..$ARGV[0]){$A=$_*substr$A,-6;$A=~s|0*$||}print chop$A

Score: 73.09 (pass)

Longshot

#!perl -l
$f=$ARGV[0];$t=1;for(1..$f){$t=$_*substr$t,-6;$t=~s|0*$||}print chop$t