Cantor

Score: 47.16 (pass)

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

Score: 48.16 (pass)

#!perl
$.='-';map{$..=' 'x3**$_.$.}0..-1+pop;print$..$/

Score: 51.15 (pass)

#!perl
$.='-';for(0..-1+pop){$..=(' 'x3**$_).$.}print$..$/

Score: 51.17 (pass)

#!perl
@>='-';map{push@>,' 'x3**$_,@>}0..-1+pop;print@>,$/

Score: 56.17 (pass)

#!perl
@>='-';map{push@>,' 'x($.=3**$_),@>}0..-1+pop;print@>,$/

Score: 56.26 (pass)

#!perl
@b='-';map{push@b,' 'x($a=3**$_),@b}0..-1+pop;print@b,$/

Score: 63.25 (pass)

#!perl
@b='-';map{push@b,' 'x($a=3**$_),reverse@b}0..-1+pop;print@b,$/

Score: 67.25 (pass)

#!perl
$_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/gewhile$b/=3;print"$_
"

Score: 67.25 (pass)

#!perl
$_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/gewhile$b/=3;print$_,$/

Score: 69.25 (pass)

#!perl
$_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/ge while$b/=3;print"$_
";