Kolakoski

Score: 54.25 (pass)

#!perl
s/.?/$ARGV[1&pos]x$&||2/ge>>9?print$_&'?'x pop,$/:do$0

Score: 55.25 (pass)

#!perl -l
s/.?/$ARGV[1&pos]x$&||2/ge<500?do$0:print$_&'?'x pop

Score: 56.25 (pass)

#!perl -l
s/.?/$ARGV[1&pos]x$&||2/ge<500?do$0:print$_&='?'x pop

Score: 57.20 (pass)

#!perl
s/./$ARGV[1&pos]x$&/ge*/.{$ARGV[$_||=2]}/?print$&,$/:do$0

Score: 59.17 (pass)

#!perl
s/./$ARGV[1&pos]x$&/geuntil/(.{$ARGV[$_||=2]})./;print$+,$/

Score: 61.16 (pass)

#!perl
$_=2;s/./$ARGV[$|--]x$&/geuntil$|=/(.{$ARGV[2]})./;print$+,$/

Score: 67.13 (pass)

#!perl
($|,$_,$=)=@ARGV;s/./$ARGV[$|--]x$&/geuntil$|=/(.{$=})./;print$1,$/

Score: 69.15 (pass)

#!perl
$==pop;$_=$ARGV[1];s/./$ARGV[$|--]x$&/geuntil$|=/(.{$=})./;print$1,$/

Score: 80.21 (pass)

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

Score: 85.23 (pass)

#!perl
(@_[1,0],$n)=@ARGV;$==$_[--$|],map$_[++$i]=$=,1..$_||$=for@_[1..$n];print@_[1..$n],$/