Cantor

Score: 41.16 (pass)

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

Score: 43.17 (pass)

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

Score: 45.17 (pass)

#!perl -l
$/='-';$/.=$"x3**$i++.$/for 1..pop;print$/

Score: 46.16 (pass)

#!perl -l
$/='-';$/.=' 'x3**$i++.$/for 1..pop;print$/