Kolakoski

Score: 62.22 (pass)

#!perl
$_[$_]=$ARGV[$|-=!--$z],$z>0or$z=$_[++$*]for 1..pop;print@_,$/

Score: 63.21 (pass)

#!perl
map{$_[$_]=$ARGV[$|-=!--$z];$z>0or$z=$_[++$*]}1..pop;print@_,$/

Score: 64.22 (pass)

#!perl
map{$_[$_]=$ARGV[$|-=!--$z];$z=$_[++$*]if$z<=0}1..pop;print@_,$/

Score: 72.13 (pass)

#!perl
$_.=$ARGV[$$=!$$]x((/./g)[$*++]||$ARGV[$$])until/.{$ARGV[2]}/;print$&.$/

Score: 72.13 (pass)

#!perl
$_.=$ARGV[$$=!$$]x((/./g)[$*++]||$ARGV[$$])until/.{$ARGV[2]}/;print$&.$/

Score: 73.13 (pass)

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

Score: 80.16 (pass)

#!perl -l
$_.=$ARGV[$|]x((/./g)[$i++]||$ARGV[$|]),$|--until s/(.{$ARGV[2]}).*/$1/;print

Score: 82.18 (pass)

#!perl -l
@_=@ARGV;{$_.=$_[$|]x((/./g)[$i++]||$_[$|]);$|--;s/(.{$_[2]}).*/$1/||redo}print

Score: 89.17 (pass)

#!perl -l
$*=pop;@_=@ARGV;{$_.=$_[$|]x(substr$_,$.++,1or$_[$|]);$|--;s/(.{$*}).*/$1/||redo}print

Score: 91.16 (pass)

#!perl -l
$*=pop;@_=@ARGV;{$_.=$_[$|]x(/.{$i}(.)/?$1:$_[$|]);$i++;$|--;s/(.{$*}).*/$1/||redo}print

Score: 94.15 (pass)

#!perl -l
$*=pop;@_=@ARGV;{$_.=$_[$|]x(/(?<=.{$i})./?$&:$_[$|]);$i++;$|--;s/(.{$*}).*/$1/||redo}print