Cantor

Score: 43.23 (pass)

#!perl -l
$a='-';$a.=$".$a,$"x=3for 1..pop;print$a

Score: 53.26 (pass)

#!perl -l
$_='-';$b=' ';for$a(1..pop){$_.=$b.$_;$b x=3}print

Score: 84.28 (pass)

#!perl -l
sub c{my($l,$b)=@_;$l<2?($b?'-':' '):c($l/=3,$b).c($l).c($l,$b)}print
c(3**pop,1)