my $t = 0;
my @x = grep $t^=1, $x =~ /((.)\2*)/g;