Kolakoski

Score: 68.14 (pass)

#!perl
$_.=($,=$ARGV[$%%2])x((/./g)[$%++]||$,)until/.{$ARGV[2]}/;print$&.$/

Score: 81.17 (pass)

#!perl
$n=pop;$f=($==pop)^pop;$_.=($=^=$f)x((split'')[$i++]||$=)until/.{$n}/&&print$&.$/