Cantor

Score: 36.15 (pass)

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

Score: 39.18 (pass)

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

Score: 41.20 (pass)

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

Score: 43.14 (pass)

#!perl -l
$_="-";s/./$& $&/gwhile($!+=pop)--;print

Score: 44.15 (pass)

#!perl
$..=$"x3**$#_++.$.||"-"for 0..pop;print$..$/

Score: 45.12 (pass)

#!perl
$..=$.?$"x3**$!++.$.:"-"for 0..pop;print$..$/

Score: 46.12 (pass)

#!perl
$.="-";$..=$"x3**$!++.$.for(1..pop);print$..$/