Cantor

Score: 34.13 (pass)

#!perl
s/./$& $&/gfor($\="-
")x+pop;print

Score: 34.16 (pass)

#!perl
s!.!$& $&!gfor($_='-
')x pop;print

Score: 36.15 (pass)

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

Score: 36.18 (pass)

#!perl
s//-
/;eval's/./$& $&/g;'x pop;print

Score: 41.16 (pass)

#!perl -055
$/.=$".$/,$"x=3for 1..pop;print"$/
"

Score: 45.17 (pass)

#!perl
s//-
/;s/$/$"x$-[0].$`/ewhile$ARGV[0]--;print

Score: 46.17 (pass)

#!perl
$_="-
";s/$/$"x$-[0].$`/ewhile$ARGV[0]--;print

Score: 49.20 (pass)

#!perl -l
$_.=$"x(length).$_||'-'while$ARGV[0]--+1;print

Score: 50.20 (pass)

#!perl -l
$_="-";$_.=$"x(length).$_ while$ARGV[0]--;print

Score: 54.17 (pass)

self-modifying code just rocks!

#!perl   
$_='s!-| !$& $&!g;$c++?eval:print"-
"';$c=-pop;eval