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