$right_color += $pattern =~ s/([$guess])/$1/g;
$right_color -= $right_place;