Cantor

Score: 48.16 (pass)

#!perl
$,='-';$,.=' 'x3**$_.$,for(0..-1+pop);print"$,
"

Score: 49.17 (pass)

#!perl
$,.=$_?' 'x3**($_-1).$,:'-'for(0..pop);print"$,
"

Score: 52.16 (pass)

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

Score: 53.16 (pass)

#!perl
$n=pop;$;='-';$;.=' 'x3**$_.$;for(0..--$n);print"$;
"