my $n = 12;
GENE:
for my $gi (@GI) {
  next GENE unless
    my ($acc) = $gi =~ m{ \A .{$n,}? (?<= [|]) ($rx_acc) (?= [|]) }xmso;
  print qq{'$acc' in '$gi'};
  }