Kolakoski

Score: 36.18 (fail)

#!perl
s//-
/;eval's/./$& $&/g;'x pop;print

Score: 61.20 (pass)

#!perl
$_=2;{s/./$ARGV[$-[0]%2]x$&/eg;/.{$ARGV[2]}/?print"$&
":redo}

Score: 63.22 (pass)

#!perl
$_=2;a:s/./$ARGV[$-[0]%2]x$&/eg;/.{$ARGV[2]}/?print"$&
":goto a

Score: 64.23 (pass)

#!perl
$_=2;a:s/./$ARGV[$-[0]%2]x$&/eg;/.{$ARGV[2]}/||goto a;print"$&
"

Score: 68.21 (pass)

#!perl
$_=11;while(s/./$ARGV[my$i++%2]x$&/eg<501){}/.{$ARGV[2]}/;print"$&
"

Score: 73.23 (pass)

#!perl
$_=11;while($i<501){$i=0;s/./$ARGV[$i++%2]x$&/eg}/.{$ARGV[2]}/;print"$&
"

Score: 80.21 (pass)

#!perl 
$_=11;while(y///c<501){$|=0;s/(.)/$ARGV[$|--]x$1/eg}/^(.{$ARGV[2]})/;print"$1
"

Score: 86.26 (pass)

#!perl 
@q=@ARGV;for(0..500){$a=$q[$_%2];push(@p,($a)x($p[$_]||$a))}print@p[(0..$q[2]-1)],"
"

Score: 90.25 (pass)

#!perl 
@q=@ARGV;for(0..500){$a=$q[$_%2];push(@p,($a)x($p[$_]||$a));}
print @p[(0..$q[2]-1)],"
";