Select Code to Download

use v5.12;
use warnings;
...
say scalar ($x ^ $y) =~ tr/\0//c;
say scalar ($x ^ $z) =~ tr/\0//c;

3
4

use v5.12;
use warnings;
...
ABCGE ABCGE 0
ABCGE FGCGB 3
ABCGE JHAGT 4