Select Code to Download

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

 

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

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

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