Cantor

Score: 34.16 (pass)

#!perl
s/./$& $&/gfor($_="-
")x pop;print

Score: 35.16 (pass)

Please shoot me.

#!perl
s/./$& $&/gfor($_="-$/")x pop;print

Score: 36.17 (pass)

#!perl -l
s/./$& $&/gfor($_='-')x pop;print

Score: 40.20 (pass)

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

Score: 48.21 (pass)

#!perl -l
map$o.=' 'x length($o).$o||'-',0..pop;print$o