@codons = unpack "(a3)*",$string;

##</code><code>##

my @runs;
push @runs,$1 while $string=~/((.)\2*)/gs;