Kolakoski

Score: 83.13 (pass)

#!perl -l
$?=pop;$_.=($"=$ARGV[$x&1])x($:=($/=(/./g)[$x++]||$")>$??$?:$/)while$?-=$:;print

Score: 104.26 (pass)

#!perl -l
$n=pop;$x=pop^($c=pop);while($n){$n-=$l=($o=$a[$i++]||$c)>$n?$n:$o;push@a,$c while$l--;$c^=$x}print@a