if ($line =~ /\s{3}\<gene\sid\s\=\s\"(\d{1,6})\"\slabel\s\=\s\"([.|\.]{1,40})\"\>/){


##</code><code>##

 

  <gene id = "3" label = "gene_of_interest">


##</code><code>##

/^\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})\"\>/

##</code><code>##

<gene_seq id = "3" status = "Sanger source DNA code" CDS_number = "1"
number_of_CDSs = "" sequence_source = "/data/databases/flatfiles/sequences/species/genome/embl/ch1_Sp.embl"
startpos = "125676" endpos = "126224" startopen = "1" endopen = "1"
complement = "F">