Kolakoski

Score: 81.25 (pass)

#!perl -l
for(0..pop){@s=(@ARGV)x999;push@a,($s[$i++])x($a[$_]||$s[$_])}print@a[0..$i-2]

Score: 81.25 (pass)

#!perl -l
for(0..pop){@s=(@ARGV)x999;push@a,($s[$i++])x($a[$_]||$s[$_])}print@a[0..$i-2]

Score: 84.28 (pass)

#!perl -l
$c=pop;@s=(@ARGV)x$c;for(0..--$c){push@a,($s[$_])x($a[$_]||$s[$_])}print@a[0..$c]

Score: 98.24 (pass)

#!perl -l
($a,$b,$c)=@ARGV;$_=$a x$a;$i=1;until(/.{$c}/&&print$&){/.{$i}(.)/;$_.=($i++%2?$b:$a)x($1||$b)}