Kolakoski

Score: 71.25 (fail)

#!perl -l
push@a,($ARGV[$_%2])x($a[$_]||$ARGV[$_])for 0..$$;print@a[0..-1+pop]

Score: 72.26 (pass)

#!perl -l
push@a,($ARGV[$_%2])x($a[$_]||$ARGV[$_])for 0..999;print@a[0..-1+pop]

Score: 74.25 (pass)

#!perl -l
for(0..999){push@b,($ARGV[$_%2])x($b[$_]||$ARGV[$_])}print@b[0..-1+pop]

Score: 75.25 (pass)

#!perl -l
for(0..999){push@b,($ARGV[$_%2])x($b[$_]||$ARGV[$_])}print@b[0..pop()-1]