my $t = 0;
my @x = grep $t^=1, split /(?<=(.))(?!\1)/, $x;