- or download this
>Seq1
AGAGAGAGAGAGGA
...
TGAGTAGATAGAGA
ACAGATATAGGAGA
AGAG
- or download this
#Print the file
print $_.$/ for (@fastafile);
...
#Put more sequences
push @fastafile, $other_seq;
- or download this
tie @fastafile,'Tie::File',recsep=>"\n>",autochomp=>1;