Select Code to Download

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";
    }