Kolakoski

Score: 79.23 (pass)

#!perl -l
--$|,push@l,map$ARGV[!$|],1..$l[$_]||$ARGV[$_]for 0..500;print@l[0..pop()-1]

Score: 87.19 (pass)

#!perl
($,)=@a=@ARGV;$,x=$,;$,.=$a[--$|]x(substr$,,$_,1or$a[1])for 1..500;printf"%.*s
",pop,$,

Score: 88.24 (pass)

#!perl
($a,$b)=@ARGV;$a x=$a;$a.=$ARGV[--$|]x(substr$a,$_,1or$b)for 1..500;printf"%.*s
",pop,$a

Score: 116.26 (pass)

#!perl
($a,$b,$c)=@ARGV;++$i;$_=$a x$a.$b x($a<2?$b:$a);$_.=($|--?$b:$a)x
substr$_,++$i,1while y///c<$c;printf"%.*s
",$c,$_