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