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