Select Code to Download

my $geneids_to_remove = {}; # create a hash reference
$text =~ s/(\w+)
...
  })
//gx;

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