Kolakoski

Score: 59.20 (pass)

#!perl
s/.?/$ARGV[1&pos]x$&||1/eg until/(.{$ARGV[2]})./;print"$1
"

Score: 67.25 (pass)

#!perl -l
$_=11;s/./$ARGV[1&pos]x$&/eg while$-[0]<999;print substr$_,0,pop

Score: 68.26 (pass)

#!perl -l
$_=11;s/./$ARGV[1&pos]x$&/eg while 999>y///c;print substr$_,0,pop

Score: 70.26 (pass)

#!perl -l
$_=11;s/./$ARGV[pos()%2]x$&/eg while 999>y///c;print substr$_,0,pop

Score: 85.27 (pass)

#!perl -l
@a=@ARGV;$_=$a[0].$a[1];s/./$a[pos()%2]x$&/eg while 999>y///c;print substr$_,0,pop

Score: 86.28 (pass)

#!perl -l
@a=@ARGV;$_=$a[0].$a[1];s/./$a[my$f++%2]x$&/eg while 999>y///c;print substr$_,0,pop

Score: 91.30 (pass)

#!perl -l
@a=@ARGV;$_=$a[0].$a[1];s/./$a[my$f++%2]x$&/eg while$a[2]+1>y///c;print substr$_,0,$a[2]