Cantor

Score: 42.21 (pass)

#!perl -l
s/$/-/;eval's//$"$_/;$"x=3;'x pop;print

Score: 44.15 (pass)

#!perl
$,='-';$,.=$".$,,$"x=3 for 1..pop;print$,.$/

Score: 46.18 (pass)

#!perl -l
$,='-';map$,.=$"x3**$_.$,,0..-1+pop;print$,

Score: 46.18 (pass)

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

Score: 70.29 (pass)

#!perl -l
$a=3**pop;$_='-'x$a;s#(-+)\1\1#$1.$"x$a.$1#ge while($a/=3)>=1;print