$ perl -le'
$_ = q/atcgcgtacatcgatac/;
print;
pos = 8;
s/\G(.)/\u$1/;
print;
'
atcgcgtacatcgatac
atcgcgtaCatcgatac