Cantor

Score: 38.17 (pass)

#!perl
s//-
/;for$.(1..pop){s/./$& $&/g}print

Score: 39.13 (pass)

#!perl
$\="-
";$\=~s/./$& $&/gfor 1..pop;print

Score: 39.15 (pass)

#!perl
$\="-
";map$\=~s/./$& $&/g,1..pop;print

Score: 40.17 (pass)

#!perl -l
s//-/;for$.(1..pop){s/./$& $&/g}print

Score: 46.22 (pass)

#!perl -l
s//-/;for$.(1..pop){$_.=' 'x y///c.$_}print

Score: 47.26 (pass)

#!perl -l
$_='-';for$i(1..pop){$_.=' 'x y///c.$_}print