my $str  = 'AGACGAGTA';

my $mask = "\xFF" x length($str);
substr($mask, $_, 1, "\x00") for 2..6;

my $res = $str & $mask;
$res =~ s/\x00/x/g;

print("$res\n");