Cantor

Score: 49.23 (pass)

#!perl -l
$t='-';map$t.=' 'x3**--$_.$t,(1..pop);print$t;

Score: 50.23 (pass)

Need a better way of finding out length of $t than '3**--$_'. 

#!perl -l
$t='-';for(1..pop){$t.=' 'x3**--$_.$t;}print$t;