my $matches = $left ^ $right;
$matches =~ s/(.)/$1 eq "\0" ? '*' : "_" /eg;