Sostituzione print substitution example:\n ; $dna = ATGCATTT ; print Old DNA: $dna\n ; $dna =~ s/TGC/gggagc/; print New DNA: $dna\n\n ; substitution example: Old DNA: ATGCATTT New DNA: AgggagcATT print single substitution:\n ; $dna = ATGCATTT ; print Old DNA: $dna\n ; $dna =~ s/T/t/; print New DNA: $dna\n\n ; single substitution: Old DNA: ATGCATTT New DNA: AtGCATTT print global substitution:\n ; $dna = ATGCATTT ; print Old DNA: $dna\n ; $dna =~ s/T/t/g; print New DNA: $dna\n\n ; global substitution: Old DNA: ATGCATTT New DNA: AtGCAttt s/ / / prima dopo
{}