Cantor
Score: 41.20 (pass)
#!perl -l for$.(s..-...pop){s,,$_$",,$"x=3}print
Score: 43.13 (pass)
#!perl $..=$"x3**--$_.$.||"-"for$...pop;print$..$/