my $str = 'AGACGAGTA';

my $res = $str;
substr($res, $_, 1, "x") for 2..6;

print("$res\n");