Cantor

Score: 36.18 (pass)

#!perl
s!!-
!;eval's/./$& $&/g;'x pop;print

Score: 37.19 (pass)

#!perl
$_='-
';eval's/./$& $&/g;'x pop;print

Score: 39.21 (pass)

#!perl
$_='-
';for$x(1..pop){s/./$& $&/g}print

Score: 44.20 (pass)

#!perl -l
$s=pop;$_='-';s/./$& $&/g while$s--;print

Score: 67.24 (pass)

#!perl -l
$_='-'x($i=3**pop);s/(-{$i}){3}/$+.' 'x$i.$+/ge while$i/=3;print

Score: 69.23 (pass)

#!perl -l
$_='-'x($i=3**pop);while($i/=3){s/(-{$i}){3}/$+.' 'x$i.$+/ge}print

Score: 77.26 (pass)

#!perl -l
$_='-'x($i=3**pop);while($i/=3){s/(-{$i}){3}/'-'x$i.' 'x$i.'-'x$i/ge}print