Cantor

Score: 43.13 (pass)

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

Score: 43.13 (pass)

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

Score: 45.12 (pass)

#!perl
$:='-';$:.=$".$:,$"x=3for 1..shift;print"$:
"

Score: 54.16 (pass)

#!perl
$/='-';$/.=' 'x(3**$i++).$/while$i<$ARGV[0];print"$/
"