Kolakoski

Score: 76.26 (pass)

#!perl -l
print map{$x=$a.$x;$e||=chop$x;--$e?$a:($a^=$b)^$b}2..pop,$b=pop^($a=pop)

Score: 96.20 (pass)

#!perl -l
($a,$b,$c)=@ARGV;for(;;){for(1..$/[$/++]||$a){(print@/),exit if$c==push@/,$a}($b,$a)=($a,$b)}