Cantor

Score: 36.18 (pass)

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

Score: 39.18 (pass)

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

Score: 41.24 (pass)

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

Score: 48.21 (pass)

#!perl
for(0..pop){$a.=' 'x3**($_-1).$a||'-'}print"$a
"

Score: 52.22 (pass)

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