Cantor

Score: 45.24 (pass)

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

Score: 47.28 (pass)

#!perl -l
$l='-';map$l.=$"x(3**$_/3).$l,1..pop;print$l

Score: 48.27 (pass)

#!perl -l
$l='-';map$l.=$"x 3**($_-1).$l,1..pop;print$l

Score: 51.23 (pass)

#!perl -l
$_='-';for$n(1..pop){$_.=' 'x length().$_}print;