Cantor

Score: 34.13 (pass)

#!perl
s/./$& $&/gfor($\="-
")x+pop;print

Score: 40.17 (pass)

#!perl -l
s//-/;for$*(1..pop){s/./$& $&/g}print

Score: 41.20 (pass)

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

Score: 43.21 (pass)

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

Score: 54.22 (pass)

#!perl -l
sub c{$_--?join$"x3**$_,(&c)x2:"-"}$_=shift;print&c

Score: 56.23 (pass)

#!perl -l
sub c{$_--?join$"x(3**$_),(&c)x2:"-"}$_=shift;print&c