Cantor

Score: 39.21 (pass)

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

Score: 41.22 (pass)

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

Score: 43.19 (pass)

Filters 0 .. 2222... to valid radix 3 numbers. Prints a " " when number contains a "1"; "-", otherwise. May run awhile for large $ARGV[0]!

#!perl -l
print map/[3-9]/?'':/1/?$":'-',0..2x pop