Cantor

Score: 36.15 (pass)

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

Score: 36.18 (pass)

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

Score: 36.18 (pass)

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

Score: 40.19 (fail)

#!perl -Xl
print eval'map{$_,$&,$_}'x pop.'"-"'

Score: 41.18 (fail)

#!perl
for$n(s//-
/..pop){s|$|$"x"@+".$`|e}print

Score: 49.21 (pass)

#!perl -l
print eval'map{'x($n=pop).'$_,$",$_}'x$n.'"-"'