Kolakoski

Score: 47.16 (fail)

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

Score: 66.17 (fail)

#!perl
push@>,(/@ARGV[$|--]/)x(@>,$+)[$_]for 0..500;print@>[0..-1+pop],$/

Score: 67.16 (pass)

#!perl
push@>,($.=@ARGV[$|--])x(@>,$.)[$_]for 0..500;print@>[0..-1+pop],$/

Score: 68.16 (pass)

#!perl
map{push@>,($.=@ARGV[$|--])x(@>,$.)[$_]}0..500;print@>[0..-1+pop],$/

Score: 72.18 (pass)

#!perl
map{push@>,($ARGV[$|--])x(@>,$ARGV[$_])[$_]}0..500;print@>[0..-1+pop],$/

Score: 74.18 (pass)

#!perl
map{push@>,($ARGV[$|--])x($_<@>?@>:@ARGV)[$_]}0..500;print@>[0..-1+pop],$/

Score: 74.23 (pass)

#!perl
map{push@a,($ARGV[$|--])x($_<@a?@a:@ARGV)[$_]}0..500;$#a=-1+pop;print@a,$/

Score: 78.23 (pass)

#!perl
map{push@a,($ARGV[$|--])x($_<@a?$a[$_]:$ARGV[$_])}0..500;$#a=-1+pop;print@a,$/

Score: 81.23 (pass)

#!perl
map{push@a,($ARGV[$|--])x($_<@a?$a[$_]:$ARGV[$_])}0..($c=pop);$#a=$c-1;print@a,$/

Score: 82.25 (pass)

#!perl
$c=pop;map{push@a,($ARGV[$|--])x($_<@a?$a[$_]:$ARGV[$_])}0..$c;$#a=$c-1;print@a,$/

Score: 88.24 (pass)

#!perl
$c=pop;$|=1;map{push@a,($ARGV[--$|])x($_<@a?$a[$_]:$ARGV[$_])}0..$c;$#a=$c-1;print@a,"
"

Score: 105.24 (pass)

#!perl
$c=pop;@v=@ARGV;$|=1;do{push@a,split//,$v[--$|]x($i<@a?$a[$i++]:$v[$i++])}until@a>$c;print@a[0..$c-1],"
"