Cantor

Score: 36.18 (pass)

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

Score: 38.17 (pass)

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

Score: 38.20 (pass)

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

Score: 39.14 (pass)

#!perl
s//-
/;s/./$& $&/gwhile$ARGV[0]--;print