if (($word1 ^ $word2) =~ tr[\1-\255][] == 1) {
...
}