Cantor

Score: 43.13 (pass)

#!perl
$..=$"x3**--$_.$.||'-'for$|..pop;print$..$/

Score: 43.15 (pass)

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

Score: 45.14 (pass)

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