my @chunks;
  my @start_pos;
  my $pos = 0;
  foreach my $chunk ( split /(X+)/, $string )
  {
      unless ( $chunk =~ /^X/ )
      {
          push @start_pos, $pos;
          push @chunks, $chunk;
      }
      $pos += length $chunk;
  }