Cantor

Score: 34.13 (pass)

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

Score: 34.16 (pass)

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

Score: 36.18 (pass)

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