#!/usr/local/bin/perl
use strict;
use warnings;

my $input_file = "../datag/enbank_entry.txt";
my $result_file = "genbank_seq.txt";

open (IN, $input_file) || die "cannot open \"$input_file\": $!";
open (OUT, ">$result_file") || die "cannot open \"$result_file\": $!";

while (my $line = <IN>) {
   last if $line eq "ORIGIN\n";
}

while (my $line = <IN>) {
   print OUT $line;
}