Word border and symbol +

Question

Perl

Good afternoon.
Pseudocode in Perl:

$t = "C++, Java; JavaScript, c++, java; Oracle. Perl - power.";
$t =~ s/\b\Qc++\E/!!!Perl!!!/ig;
print $t, "\n";

The replacement works fine, but if you replace the pattern with "\b\Qc++\E\b" (that is, add an anchor at the end), then no more matches are found.
Please tell me what I don't understand here.

Answer 1

$t = "C++, Java; JavaScript, c++1, java; Oracle. Perl - power.";
$t =~ s/\b\Qc++\E(?=\W)/!!!Perl!!!/ig;
print $t, "\n";

\b - word boundary
\w - alphanumeric character (any letter, digit, or underscore)
\W - any character other than letters, numbers, and the underscore
perl considers a point between \w and \W to be a word boundary, regardless of the order in which these characters appear.