Help for this page
use strict; use warnings; ... TTWWWC WWWWTCTG TTWTTTCT
use strict; use warnings; use Bio::SeqIO; ... print $seq->id," ",$seq->seq; #output,ID space-separated from sequ +ences print "\n"; }