$ perl -le'
$_ = q/atcgcgtacatcgatac/;
print;
s/(?<=.{8})(.)/\u$1/s;
print;                   
'
atcgcgtacatcgatac
atcgcgtaCatcgatac