Cantor

Score: 37.19 (pass)

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

Score: 39.18 (pass)

#!perl
$_='-
';eval's/./$& $&/g;'x shift;print