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


##</code><code>##

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