Cantor

Score: 46.14 (pass)

#!perl
$;="-";$;.=$"x3**$_.$;for$!..-1+pop;print"$;
"

Score: 66.29 (pass)

#!perl -l
sub z{my$n=1/3*pop;$n>=1?z($n).($"x$n).z($n):"-"}print z 3**pop

Score: 74.27 (pass)

#!perl -l
$_="-"x($n=3**pop);$n/=3,s/(-{$n}){3}/$1.(" "x$n).$1/ge until$n<3;print