#Solution 1:
my @mask = split "",unpack ("b*",$mask);
my @seq = split "",$seq;
print "Res:  ";
print map {! shift @mask ? $_ : "x"} @seq;
print "\n";