Cantor

Score: 44.23 (pass)

"look maw! no length()!"

#!perl -l
$_.=' 'x y/- //.$_ for($_='-')x pop;print

Score: 45.22 (pass)

whoops! typo fix (now it's a dash)

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

Score: 45.24 (fail)

first time I've ever tried perl golf... problem seemed much easier to solve by building from '-' than from subtracting from a zillion dashes... but then I'm sure this is *not* the best solution, so who knows...

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