my $geneids_to_remove = {}; # create a hash reference
$text =~ s/(\w+)
  (?{ # in regex code
    $geneids_to_remove->{$1} = 1; # store geneids in a hash
  })
//gx;