Help for this page

Select Code to Download


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

print "Masked: $masked\n";
  2. or download this
    my $mask = '001111100';
my $str  = 'AGACGAGTA';
...
}

print "Masked: $masked\n";