Cantor

Score: 43.19 (pass)

hah!

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

Score: 45.14 (fail)

slightly evil.

#!perl -l
$:='-';$:.=($:&$"x$$).$:for 1..pop;print$:

Score: 47.16 (pass)

If 500's not enough, I can always change that to 9e8... Not as short, but still saves a stroke or so.

#!perl -l
$:='-';$:.=($:&$"x.5e4).$:for 1..pop;print$:

Score: 48.16 (pass)

hey, it's two places better

#!perl -l
$,='-';$,.=$"x(length$,).$,for 1..pop;print$,

Score: 49.15 (pass)

minor tweakage

#!perl -l
$,='-';$,.=$"x(length$,).$, for 1..pop;print$,

Score: 50.15 (pass)

stupid pop...

#!perl
$,='-';$,.=' 'x(length$,).$,for 1..pop;print"$,\n"

Score: 55.23 (pass)

#!perl

$x='-';$x.=' 'x(length$x).$x for 1.."@ARGV";print"$x\n"