my $str = 'AGACGAGTA';

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

my $x = 'x' x length($str);
my $res = ($str & $mask) | ($x & ~$mask);

print("$res\n");