^ - xor . ,
$a = "aaata"; $b = "aataa";
printf "%vX\n", ($a ^ $b);
0.0.15.15.0
ord("a" ^ "a") == 0 ord("a" ^ "t") == 0x15 ord("t" ^ "a") == 0x15, ASCII "a" 0x61
0b0110_0001 ( printf "%b\n", ord "a"), ASCII "t" 0x74 0b0111_0100.
, XOR 0b0110_0001 0b0111_0100, 0b0001_0101 0x15.
tr tr/\0//c
5 .
:
tr/SEARCHLIST/REPLACEMENTLIST/cdsr
, . .
/c, SEARCHLIST.
REPLACEMENTLIST , SEARCHLIST. .
perlrebackslash \0. escape-:
. , .
So tr/\0//c tr/\001-\377/\001-\377/ 1 , , .
:
1. \xxx , \077, . perlrebackslash . , tr/\001-\377// \o{} escape tr/\o{1}-\o{377}//