Kolakoski

Score: 68.15 (pass)

#!perl
push@$,($$=$ARGV[$|--])x($$[$_]||$$)for 0..500;$#$=-1+pop;print@$,$/

Score: 73.21 (pass)

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