Cantor

Score: 41.15 (pass)

#!perl -l
s//-/;s/./$& $&/gwhile$ARGV[0]--;print

Score: 42.17 (pass)

#!perl -l
s//-/;s/./$& $&/g while$ARGV[0]--;print

Score: 45.12 (pass)

#!perl -l
$/='-';$/.=$".$/,$"=$"x3for 1..pop;print$/

Score: 48.18 (pass)

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

Score: 50.15 (pass)

#!perl -l
$/='-';$/.=' 'x(length$/).$/for 1..pop;print$/;

Score: 67.29 (pass)

#!perl -l
sub c{my $l=$_[0]/3;$l<1?"-":c($l)." "x$l.c($l)}print c(3**pop);