Select Code to Download

#!/usr/bin/env perl -l

...

my @x = glob '{CAT,CAC}TGG{GTT,GTC,GTA,GTG}{CCT,CCC,CCA,CCG}';
print "@x";

CATTGGGTTCCT CATTGGGTTCCC CATTGGGTTCCA CATTGGGTTCCG CATTGGGTCCCT CATTG
+GGTCCCC CATTGGGTCCCA CATTGGGTCCCG CATTGGGTACCT CATTGGGTACCC CATTGGGTA
+CCA CATTGGGTACCG CATTGGGTGCCT CATTGGGTGCCC CATTGGGTGCCA CATTGGGTGCCG 
+CACTGGGTTCCT CACTGGGTTCCC CACTGGGTTCCA CACTGGGTTCCG CACTGGGTCCCT CACT
+GGGTCCCC CACTGGGTCCCA CACTGGGTCCCG CACTGGGTACCT CACTGGGTACCC CACTGGGT
+ACCA CACTGGGTACCG CACTGGGTGCCT CACTGGGTGCCC CACTGGGTGCCA CACTGGGTGCCG