Cantor

Score: 43.15 (pass)

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

Score: 44.23 (pass)

#!perl -l
for$x(0..pop){$_.=$"x y///c.$_||'-'}print

Score: 47.16 (pass)

#!perl
$*='-';$*.=$"x$*=~y///c.$*for 1..pop;print$*.$/