Select Code to Download

my $mask = '001111100';
my $str  = 'AGACGAGTA';
...
my $masked = join '', pairwise { $a ? 'x' : $b } @mask, @str;

print "Masked: $masked\n";

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

print "Masked: $masked\n";