Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @GI = (
...
"
'WP_938420210.1' in 'gi|Q384722390|emb|WP_938420210.1|Gene name'
'WP_934203412.1' in 'gi|342546780|emb|WP_934203412.1|Gene name'

my $n = 12;
GENE:
...
    my ($acc) = $gi =~ m{ \A .{$n,}? (?<= [|]) ($rx_acc) (?= [|]) }xms
+o;
  print qq{'$acc' in '$gi'};
  }