my $tmp = $solution ^ $guess; my $right_place = $tmp =~ tr/\0//;