That's written simpler as:

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