Kolakoski

Score: 69.20 (pass)

#!perl
$_=11;s!.!$ARGV[$-[0]%2]x$&!eg,s!(.{$ARGV[2]}).*!$1
!swhile--$=;print

Score: 70.19 (pass)

#!perl
$?=pop,$_=11;s!.!$ARGV[$-[0]%2]x$&!eg,s!(.{$?}).*!$1
!swhile--$=;print

Score: 72.17 (pass)

#!perl
$?=pop,$_=11;$|=0,s/./$ARGV[$|--]x$&/eg,s|(.{$?}).*|$1
|swhile--$=;print

Score: 73.18 (pass)

#!perl -l
$?=pop,$_=11;$|=0,s/./$ARGV[$|--]x$&/eg,s/(.{$?}).*/$1/while--$=;print

Score: 77.11 (pass)

#!perl -l
@|=@ARGV;$_.=$|[$|]x((/./g)[$?++]||$|[$|]),$|--while$|[2]--;print/(.{$?})/