$s = 'atcgcgtacatcgatac';;

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

print $s;;
atcGcgTacAtcGatAc