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