use v5.12;
use warnings;

my $x ='ABCGE ABCGE';
my $y ='ABCGE FGCGB';
my $z ='ABCGE JHAGT';

say scalar ($x ^ $y) =~ tr/\0//c;
say scalar ($x ^ $z) =~ tr/\0//c;