my @genes;
  my @gene_pos;
  while ( $screen =~ m/([^X]+)/g )
  {
      push @genes, $1;
      push @gene_pos, $-[1];
  }