Cantor

Score: 42.20 (pass)

#!perl
s//-
/;eval's/$/$"x$+[0].$`/e;'x pop;print

Score: 43.20 (pass)

#!perl
for$b(0..pop){s/$/$"x$+[0].$`||"-
"/e}print

Score: 44.22 (pass)

#!perl
for$b(0..pop){s/$/$"x$+[0].$`||"-\n"/e}print

Score: 46.26 (pass)

#!perl -l
@c="-";@c=(@c,($")x@c,@c)for 1..pop;print@c

Score: 64.23 (pass)

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

Score: 71.27 (pass)

#!perl -l
print map{$c="-";for$b(0..8){$c=" "if($_/3**$b)%3==1}$c}0..-1+3**pop