Cantor

Score: 36.18 (pass)

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

Score: 38.18 (pass)

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

Score: 39.21 (pass)

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

Score: 40.16 (pass)

#!perl -la055
map$/=~s/./$& $&/g,1..pop;print$/

Score: 42.15 (pass)

#!perl -la055
map$/.=$"x3**--$_.$/,1..pop;print$/

Score: 44.17 (pass)

#!perl -055
map$/.=$"x3**$_.$/,0..-1+pop;print"$/
"

Score: 72.19 (fail)

#!perl -l
map{$==$ARGV[$_&1];push@],($=)x($][$_]||$=)}0..255;print@][z..-1+pop]