note also that in this code the last non-triplet is silently discarded.

my $seq = qw(CCCTCTCTCCCAGGGGCAAA);

prints: CCC TCT CTC CCA GGG GCA 
AA discarded
[download]

This could be, or not, what you want, so maybe you'll need to fix this