Kolakoski

Score: 66.28 (pass)

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

Score: 66.30 (pass)

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

Score: 70.29 (pass)

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

Score: 82.29 (pass)

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

Score: 87.25 (pass)

#!perl -l
($c,$d,$o)=@ARGV;$n.=$_ x(substr($n,$l++,1)||$_)for($c,$d)x 250;print $n=~/(.{$o})/;