Re: Genbank file parsing

[Anonymous Monk]

Untested:

while (<FILE>) {
    $features = $1, next if /FEATURES\s+(\w+)/;
    $count    = $1, next if /COUNT\s+(\w+)/;
    push @seq,  $1       if /^ORIGIN/ .. m!//!;
}