Re^2: String character replacement based on position

For case modifications, tr/// is useful as it operates in place:

$s = 'atcgcgtacatcgatac';;

substr( $s, $_, 1 ) =~ tr[acgt][ACGT] for 3,6,9,12,15;;

print $s;;
atcGcgTacAtcGatAc
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^2: String character replacement based on position Download Code