Select Code to Download

use strict;
use autodie;
...
    $seq =~ s/\n//g;
    print $FH2 "$name\n$seq\n\n";
}

cadherin 4, type 1, R-cadherin (retinal)
atgaccgcgggcgccggcgtgctccttctgctgctctcgctctccggcacagcgagactggagatatcgt
+cacagtggcggctggcctggaccgagagaaagttcagcagtacacagcagcttgcgcatcctgtacctg
+gaggccgggatgtatgacgtccccatcatcgtcacagactctggaaa
...

tumor suppressing subtransferable candidate 4
atggctgaggcaggaacaggtgagccgtcccccagcgtggagggcgaa