Cantor

Score: 40.19 (pass)

#!perl
for$i(s..-
...pop){s,$,$"$`,,$"x=3}print

Score: 41.22 (pass)

#!perl -l
for$i(s..-...pop){s,,$_$",,$"x=3}print

Score: 42.21 (pass)

#!perl -l
for$i(s..-...pop){$_.=$".$_,$"x=3}print

Score: 43.23 (pass)

#!perl -l
$a="-";$a.=$".$a,$"x=3for 1..pop;print$a