Cantor

Score: 34.13 (pass)

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

Score: 36.12 (pass)

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

Score: 38.18 (pass)

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

Score: 44.11 (pass)

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

Score: 45.14 (pass)

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