my $newmask = ( $old ^ $word ) =~ tr/\0/\xff/cr;