$seq = "GAGtatCTGGAAGACAGGCAGACTTTTCGCCACAGCGTGGTGGTACCTTATGAGCCACCCGAGGCCGGCT";

$pos = 0;

while ($codon = substr($seq, $pos, 3)) {
    print "$codon ";
    $pos = $pos + 3;
}

GAG tat CTG GAA GAC AGG CAG ACT TTT CGC CAC AGC GTG GTG GTA CCT TAT GAG CCA CCC GAG GCC GGC T