Cantor

Score: 45.20 (pass)

#!perl -l
for$i(0..pop){$_.=$"x y/- //.$_||'-'}print

Score: 46.22 (pass)

Third try. Wish I could figure out how to reduce that for loop.

#!perl -l
s//-/;for$i(1..pop){$_.=$"x y/- //.$_}print

Score: 63.24 (pass)

Second try.

#!perl -l
$_='-'x3**pop;{s/(-+)\1\1/$1.' 'x$1=~y!-!!.$1/ge&&redo}print

Score: 71.22 (pass)

First try.

#!perl
$_='-'x3**shift;1while s/(-+)\1\1/$1.(' 'x length $1).$1/ge;print$_,$/;