Kolakoski

Score: 79.25 (pass)

#!perl
@a=@ARGV;s//@a/;while($i<666){$i=0;s/./$a[$i++&1]x$&/ge}s|.{$a[2]}|print$&,$/|e

Score: 79.27 (pass)

#!perl -l
@a=@ARGV;s//@a/;while($i<666){$i=0;s/./$a[$i++&1]x$&/ge}s/.{$a[2]}/print$&/e

Score: 84.28 (fail)

#!perl -l
@a=@ARGV;$_={0,@a};for(;$i<999;){$i=0;s/./$a[$i++&1]x$&/ge}print substr$_,0,$a[2]

Score: 91.28 (pass)

#!perl
@a=@ARGV;for(@b=@a;@b<500;$i++){$_=1x$b[$i];s/./$b[$j++]=$a[$i&1]/ge}print@b[0..$a[2]-1],$/

Score: 94.28 (pass)

#!perl
@a=@ARGV;for(@b=@a;@b<500;$k=1-$k){$_=1x$b[$i++];s/./$b[$j++]=$a[$k]/ge}print@b[0..$a[2]-1],$/

Score: 96.28 (pass)

#!perl
@a=@ARGV;@b=@a;while(@b<500){$_=1x$b[$i++];s/./$b[$j++]=$a[$k]/ge;$k=1-$k}print@b[0..$a[2]-1],$/