Cantor

Score: 40.20 (pass)

#!perl -l
s//-/;for$c(1..pop){s/./$& $&/g}print

Score: 41.18 (fail)

#!perl -l -050
map$/=~s/./$& $&/g,1..pop;print$/

Score: 41.18 (pass)

#!perl -l -055
map$/=~s/./$& $&/g,1..pop;print$/

Score: 41.22 (pass)

#!perl -l
$_='-';for$c(1..pop){s/./$& $&/g}print

Score: 42.18 (pass)

#!perl -l -055
map{$/.=$".$/;$"x=3}1..pop;print$/

Score: 42.24 (pass)

#!perl -li-
map{$^I.=$".$^I;$"x=3}1..pop;print$^I

Score: 43.21 (pass)

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

Score: 43.23 (pass)

#!perl -li-
for(1..pop){$^I.=$".$^I;$"x=3}print$^I

Score: 47.26 (fail)

#!perl -l
@a='-';map push@a,(' ')x@a,@a,1..pop;print@a

Score: 47.26 (pass)

#!perl -li-
for(1..pop){$^I.=$"x(3**$_/3).$^I}print$^I

Score: 49.24 (pass)

#!perl -l
@a='-';for(1..pop){push@a,(' ')x@a,@a};print@a

Score: 50.24 (pass)

#!perl -l
$_=A;$_.=lc().$_ while$ARGV[0]--;y/Aa/- /;print

Score: 53.23 (pass)

Not bad for a beginner

#!perl -l
$_='A';$_.=lc().$_ while$ARGV[0]--;tr/Aa/- /;print

Score: 56.21 (fail)

not bad for a beginner

#!perl
$_='A';$_.=lc().$_ while$ARGV[0]--;tr/Aa/- /;print
ecode