Kolakoski

Score: 56.12 (pass)

#!perl
print$_?$.[$!++]=$ARGV[--$.[$.]||++$.,$.%2]:$/for-pop..0

Score: 58.12 (pass)

#!perl
print$.[$!++]=$ARGV[--$.[$.]||++$.,$.%2]for 1..pop;print$/

Score: 59.12 (pass)

#!perl
print$.[$!++]=$ARGV[(--$.[$.]?$.:++$.)%2]for 1..pop;print$/

Score: 60.15 (pass)

#!perl
for(1..pop){print$.[$_-1]=$ARGV[$.%2];--$.[$.]||++$.}print$/

Score: 68.13 (pass)

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

Score: 69.13 (pass)

#!perl
for(1..pop){$.[$_-1]=$ARGV[$.%2];$.++,$!=0if($.[$.]<=++$!)}print@.,$/

Score: 75.15 (pass)

#!perl
@_=@ARGV;for(1..pop){$.[$_-1]=$_[$.%2];$.++,$!=0if($.[$.]<=++$!)}print@.,$/

Score: 87.21 (pass)

#!perl
@_=@ARGV;$_.=$_[$.%2]x(substr($_,$.++,1)||$_[$.-1])while($.<$_[2]);print/^.{$_[2]}/g,$/

Score: 89.21 (fail)

#!perl
@_=@ARGV;$_.=$_[$.%2]x(substr($_,$.++,1)||$_[$.-1])while($.<$_[2]);print/^.{$_[\
2]}/g,$/