Kolakoski

Score: 71.17 (pass)

#!perl
for$"(1..pop){/.$/;$_=($-=$ARGV[$"-1&1])x($&||$-).$_;print chop}print$/

Score: 72.15 (pass)

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

Score: 72.18 (pass)

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

Score: 72.19 (pass)

#!perl
for$i(1..pop){/.$/;$_=($/=$ARGV[$i-1&1])x($&||$/).$_;print chop}print"
"

Score: 73.19 (pass)

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

Score: 74.20 (pass)

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

Score: 75.20 (pass)

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

Score: 76.22 (pass)

#!perl -l
push@a,(($/=$ARGV[$_&1])x($a[$i++]||$/))=~/./gfor 0..pop;print@a[0..$i-2]

Score: 77.19 (pass)

#!perl -l
for$i(0..pop){/(.{$i})(.)/;$r=$1||$/;$_.=($/=$ARGV[$i&1])x($2||$/)}print$r

Score: 78.20 (pass)

#!perl -l
for$i(0..pop){/.{$i}(.)/;$_.=($/=$ARGV[$i&1])x($1||$/);$j=$i}print/(.{$j})/

Score: 79.21 (pass)

#!perl -l
$c=pop;for$i(0..$c){/.{$i}(.)/;$/=$ARGV[$i&1];$_.=$/x($1||$/)}print/(.{$c})/

Score: 80.24 (pass)

#!perl -l
$c=pop;for$i(0..$c){/.{$i}(.)/;$a=$ARGV[$i&1];$_.=$a x($1||$a)}print/(.{$c})/

Score: 82.24 (pass)

#!perl -l
$c=pop;for$i(0..$c){/.{$i}(.)/;$_.=$ARGV[$i&1]x($1||$ARGV[$i&1])}print/(.{$c})/

Score: 85.25 (pass)

#!perl -l
$c=pop;@a=@ARGV;for$i(0..$c){/.{$i}(.)/;$_.=$a[$i&1]x($1||$a[$i&1])}print/(.{$c})/

Score: 90.18 (pass)

#!perl -l
($/,$b,$c)=@ARGV;for$i(0..$c){/.{$i}(.)/;$_.=$/x($1||$/);($/,$b)=($b,$/)}print/(.{$c})/

Score: 91.24 (pass)

#!perl -l
($a,$b,$c)=@ARGV;for$i(0..$c){/.{$i}(.)/;$_.=$a x($1||$a);($a,$b)=($b,$a)}print/(.{$c})/