Select Code to Download

Select or download this

>adbca3e
TGCTCCCCACGCTTGCCTCTCCAGTACTCAACCAAAGCAGTCTCTAGAAAAACAGTTTCCAACGCAATAC
+GATGGAATTCCACTTCCCAAATATCTC
...
TCCCCACGCTTTCGCGCTTCAGCGTCAGTATCTGTCCAGTGAGCTGACTTCTCCATCGGCATTCCTACAC
+AGTACTCTAGAAAAACAGTTTCTGCTC
>0639b5b
TCGCGCCTCAGTGTCCAACGCAATACGAGTTGCAGACCAGGACACATGGAATTCCACTTCCCTCTCCAGT
+ACTCAACCAAAGCAGTCTCTAGAAAAG

Select or download this

#!/usr/local/perl

...
while (<NS>) {
if ($_ =~ tr/ATGC/TACG/) {print $_;}
}