my $mask = '001111100';
my $str  = 'AGACGAGTA';

my @mask = split( '', $mask );
my @str  = split( '', $str );
my $masked = join '', pairwise { $a ? 'x' : $b } @mask, @str;

print "Masked: $masked\n";