Cantor

Score: 43.21 (pass)

#!perl -li-
map$^I.=$"x3**$-++.$^I,1..pop;print$^I

Score: 44.20 (fail)

Please change all $^I to hard ctrl-I for 3 stroke reduction

#!perl -li-
$^I.=$"x3**$_.$^Ifor$%..-1+pop;print$^I

Score: 44.20 (pass)

#!perl -li-
$^I.=$"x3**$_.$^Ifor$%..-1+pop;print$^I

Score: 46.18 (pass)

#!perl -l
$:='-';$:.=$"x3**$_.$:for 0..-1+pop;print$:

Score: 73.15 (pass)

#!perl -l
print+map{@}{@}}=('-')x push@},$==3*$}[$_],$=+2;$}{--$_}||$"}1..3**pop

Score: 85.18 (pass)

#!perl -l
sub lolli{my$pop=pop;$pop--?lolli($pop).$"x3**$pop.lolli($pop):'-'}print lolli pop