Kolakoski

Score: 66.14 (pass)

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

Score: 66.25 (pass)

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

Score: 69.27 (pass)

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

Score: 75.27 (pass)

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

Score: 81.28 (pass)

#!perl -l
(@n[0,1],$l)=@ARGV;push@c,($c=$n[$|--])x($c[$_]||$c)for 0..$l;print@c[0..$l-1]

Score: 87.15 (pass)

#!perl -l
(@=[0,1],$#c)=@ARGV;$==$=[$|--],$,.=$=x substr$,.$=,$.++,1for@c;print substr$,,0,$#c

Score: 92.28 (pass)

#!perl -l
(@n[0,1],$l)=@ARGV;$0=$n[$_%2],$x.=$0x(substr($x,$_,1)||$0)for 0..$l;print substr$x,0,$l;

Score: 104.25 (pass)

#!perl -l
($n,$m,$l)=@ARGV;for(;$l>length;($n,$m)=($m,$n)){$_.=$n x(substr($_,$p++,1)||$n)}print substr$_,0,$l;