Cantor

Score: 47.16 (pass)

#!perl -l
$/="-";$/.=($"x3**--$_).$/for 1..pop;print$/

Score: 50.24 (pass)

#!perl -l
$r="-";$r.=($"x3**$_).$r
for 0..pop()-1;print$r

Score: 59.24 (pass)

#!perl -l
$r="-";$_=$r,y,-, ,,$r.="$_$r"while$ARGV[0]>$p++;print$r

Score: 65.29 (pass)

#!perl -l
$l=3**pop;$_="-"x$l;s#(-+)\1\1#$1.$"x$l.$1#ge
while$l/=3;print

Score: 77.25 (pass)

#!perl -l
$_="-"x(3**pop);1
while s#--+#$o=(length$&)/3;"-"x$o.$"x$o."-"x$o#ge;print