my $seq = qw(CCCTCTCTCCCAGGGGCAAA);

prints: CCC TCT CTC CCA GGG GCA 
AA discarded