Kolakoski

Score: 63.13 (pass)

#!perl -l
print map{@.=(($?=$ARGV[$|--])x($.[-1]||$?),@.);pop@.}1..pop

Score: 63.14 (pass)

#!perl -l
print map{push@.,($?=$ARGV[$|--])x($.[0]||$?);shift@.}1..pop

Score: 64.14 (pass)

#!perl -l
print map{push@.,($?=$ARGV[$|--])x($.=$.[$_-1]||$?);$.}1..pop

Score: 65.11 (pass)

#!perl -l
print map{chop($.=($?=$ARGV[$|--])x($.=~/.$/?$&:$?).$.)}1..pop

Score: 65.11 (pass)

#!perl -l
print map chop($.=($?=$ARGV[$|--])x($.=~/.$/?$&:$?).$.),1..pop

Score: 66.11 (pass)

#!perl -l
print map{$.=($?=$ARGV[$|--])x($.=~/.$/?$&:$?).$.;chop$.}1..pop

Score: 68.16 (pass)

#!perl -l
for$.(1..pop){s!!($?=$ARGV[$|--])x(/.$/?$&:$?)!e;$x.=chop}print$x

Score: 69.14 (pass)

#!perl
for$i(1..pop){$_.=($?=$ARGV[$|--])x(/./?$&:$?),s/.//,print$&}print'
'

Score: 72.15 (pass)

#!perl
$0=pop;$?=$ARGV[$|--],$_.=$?x(/./?$&:$?),s/.//,print$&while$0--;print'
'

Score: 80.09 (pass)

#!perl
($!,$?,$$)=@ARGV;$!^=$?;$_.=($?^=$!)x(/./?$&:$?),s/.//,print$&while$$--;print'
'

Score: 87.20 (pass)

#!perl
($x,$y,$l)=@ARGV;while($l--){$_.=$x
x(/./?$&:$x);s/.//;print$&;($x,$y)=($y,$x)}print'
'