Cantor

Score: 37.18 (pass)

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

Score: 43.23 (pass)

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

Score: 44.23 (pass)

#!perl -l
s//-/;eval'$_.=$"x(y///c).$_;'x pop;print

Score: 45.24 (pass)

#!perl -l
$_='-';eval'$_.=$"x(y///c).$_;'x pop;print

Score: 48.14 (pass)

#!perl
$@='-';$@.=$"x(length$@).$@for 1..pop;print$@.$/

Score: 49.13 (pass)

#!perl
$@='-';$@.=$"x(length$@).$@for(1..pop);print$@.$/

Score: 50.13 (pass)

#!perl
$"='-';$".=' 'x(length$").$"for(1..pop);print$".$/

Score: 51.23 (pass)

Why do it recursively?

#!perl
$c='-';$c.=(' 'x length$c).$c for 1..pop;print$c.$/