while (<INPUT>){

    if ($_ =~ /\s{3}\<gene\sid\s\=\s\"(\d{1,6})\"\slabel\s\=\s\"([.|\.]{1,40})\"\>/){
 check_gene ($_);
    }
    
    if ($_ =~ /\s{4}\<gene_seq\sid\s\=\s\"(\d{0,6})\"\sstatus\s{0,2}\=\s{0,2}\"(.{0,50})\"\s{0,2}CDS_number\s{0,2}\=\s{0,2}\"(\d{1,3})\"\s{0,2}number_of_CDSs\s{0,2}\=\s{0,2}\"(\d{0,5})\"\s{0,2}sequence_source\s{0,2}\=\s{0,2}\"(.{0,300})\"\s{0,2}startpos\s{0,2}\=\s{0,2}\"(\d{0,9})\"\s{0,2}endpos\s{0,2}\=\s{0,2}\"(\d{0,9})\"\s{0,2}startopen\s{0,2}\=\s{0,2}\"(\d{0,1})\"\sendopen\s{0,2}\=\s{0,2}\"(\d{0,1})\"\s{0,2}complement\s{0,2}\=\s{0,2}\"(.{0,1})\"\>/){
 
 check_gene_seq ($_);
 
 $label = "$gene_seq_id.$gene_seq_status.$gene_seq_CDS_number.$gene_seq_number_of_CDSs.$gene_seq_sequence_source.$gene_seq_startpos.$gene_seq_endpos.$gene_seq_startopen.$gene_seq_endopen.$gene_seq_complement"; 
    }
    
    extractseq ($label,$gene_seq_sequence_source,$gene_seq_startpos,$gene_seq_endpos); 
}