Cantor

Score: 41.17 (pass)

#!perl
$\="-
";$\=~s/(.)/$1 $1/gfor 1..pop;print

Score: 47.23 (pass)

#!perl -l
$s="-";$s.=" "x3**--$_.$s for 1..pop;print$s

Score: 49.24 (pass)

#!perl -l
$s="-";$s.=" "x3**$_.$s for 0..pop()-1;print$s

Score: 52.25 (pass)

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