Select Code to Download

scf7180000168636        1       40919   40986   Pseudo  TGT     0     
+  0       25.93
scf7180000168636        2       28112   28037   Asn     GTT     0     
+  0       86.57
...
scf7180000168736        1       813     888     Val     TAC     0     
+  0       93.03
scf7180000168736        2       912     988     Asp     GTC     0     
+  0       95.34
scf7180000168827        1       5375    5451    Val     GAC     0     
+  0       91.08

#!/usr/local/bin/perl -w
#tRANSCAN-SE_extract
...
    $end = $p2 if $p1 < $p2;
        system ("extractseq -sequence=$seq.seq -auto -stdout -separate
+ -reg=$beg..$end");
    }