$seq = "GAGtatCTGGAAGACAGGCAGACTTTTCGCCACAGCGTGGTGGTACCTTATGAGCCACCCGAGGCCGGCT";
# Per fare il ciclo devo sapere quanto lunga รจ la stringa
$lunghSeq = length($seq);
# Adesso faccio un ciclo con una variabile "posizione"
# che faccio aumentare di tre (anziche il consueto +1)
for ($pos = 0; $pos < $lunghSeq; $pos+=3) {
$codone = substr($seq, $pos, 3);
if (length($codone) == 3) {
print "$codone ";
} else {
print "X";
}
}