Cantor
Score: 42.24 (pass)
#!perl -l s//-/;for$x(1..pop){s/(.)/$1 $1/g}print