Kolakoski

Score: 70.19 (pass)

#!perl -l
push@_,($~=$ARGV[$|--])x($_[$-++]||$~)for a..kn;print@_[0..pop()-1]

Score: 70.19 (pass)

#!perl -l
push@_,($~=$ARGV[$|--])x($_[$-++]||$~)for a..kn;print@_[0..pop()-1]

Score: 76.16 (pass)

#!perl -l
$_.=$ARGV[$|]x(substr$_,$-++,1or$ARGV[$|]),$|--until/.{$ARGV[2]}/;print$&

Score: 102.18 (pass)

#!perl -l
($~,$^,$l)=@ARGV;$_=$~x$~.$^x($~<2?$^:$~);$p=2;$_.=$ARGV[$|--]x substr$_,$p++,1until/.{$l}/;print$&

Score: 112.28 (pass)

#!perl -l
($a,$b,$l)=@ARGV;@a=(($a)x$a,($b)x($a<2?$b:$a));$p=2;push@a,($ARGV[$|--])x$a[$p++]while@a<$l;print@a[0..$l-1]