substr $x,5,3 =~ s/g/G/;