Cantor
Score: 41.20 (pass)
#!perl -l $_="-";for$.(1..pop){s/./$& $&/g}print
Score: 41.22 (pass)
#!perl -l $_="-";for$x(1..pop){s/./$& $&/g}print