Select Code to Download

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

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