Kolakoski

Score: 68.16 (pass)

#!perl -l
print map{push@_,($%=$ARGV[$/^=1])x($§=$_[$_-1]||$%);$§}++$/..pop

Score: 77.19 (pass)

#!perl -l
$/=1;$%=$ARGV[$/^=1],push@_,($%)x($_[$§++]||$%)for@%=0..-1+pop;print@_[@%]

Score: 85.26 (pass)

#!perl -l
$p=pop;$/=1;$x=$ARGV[$/^=1],push@_,($x)x($_[$c++]||$x)
while@_<$p;print@_[0..$p-1]

Score: 105.24 (pass)

#!perl -l
($x,$y,$z)=@ARGV;$s=$b=$x;$_.=$b
x$s,$b^=$x^$y,$s=(split//)[++$c]||$b
while$z>split//;m/.{$z}/,print$&