my $right_place =()= "$pattern$guess"=~/(.)(?=...\1)/g;