- or download this
my $alt = join '|', reverse sort <$matches_fh>;
my $re = qr{(?x: ^ > ( $alt ) )};
my %count;
/$re/ && ++$count{$1} while <$fasta_fh>;
- or download this
#!/usr/bin/env perl
...
unwanted data
>XYZ12_2
unwanted data
- or download this
{ Gloin1 => 2, XYZ => 1, XYZ1 => 2, XYZ12 => 3 }