my $rx_find_geneid = qr/^(\w+) (?{ $gene_id = $1; })/x;