my $seq = qw(CCCTCTCTCCCAGGGGCA);
my @parts = $seq =~ /[CGTAU]{3}/sg;
foreach my $codon(@parts){print $codon," "}