Kolakoski

Score: 85.26 (pass)

#!perl -l
($x,$y,$a)=@ARGV;push@f,($|--?$y:$x)x($f[$_]||$|*$x||$y)for 0..$a;print@f[0..$a-1]

Score: 87.26 (pass)

#!perl -l
($x,$y,$a)=@ARGV;push@f,($|--?$y:$x)x($f[$_]||($|?$x:$y))for(0..$a);print@f[0..$a-1]

Score: 88.26 (pass)

#!perl -l
($x,$y,$a)=@ARGV;push@f,($|--?$y:$x)x($f[$_]||$|*$x||$y)for    0..$a;print@f[0..$a-1]

Score: 90.28 (pass)

#!perl -l
($x,$y,$a)=@ARGV;@f=($x)x$x;push@f,(--$|?$y:$x)x($f[$_]||$y)for(1..$a);print@f[0..$a-1]

Score: 108.29 (pass)

#!perl -l
($x,$y,$a)=@ARGV;@f=($x)x$x;push@f,($y)x($#f?$x:$y);push@f,($|--?$y:$x)x$f[$_]for(2..$a);print@f[0..$a-1]

Score: 110.28 (pass)

#!perl
($x,$y,$a)=@ARGV;@f=($x)x$x;push@f,($y)x($#f?$x:$y);push @f,($|--?$y:$x)x$f[$_]for(2..$a);print@f[0..$a-1],"
"