my $find= "find";
my $repl= "@@@@";

$_ = "Find";
print;
s/\b($find)\b/ uc($repl) | ( $1 ^ uc($1) ) /eig;
print;  # @```
        # Should be @@@@

##</code><code>##

my $find= chr(1234) . 'find';
my $repl= "aaaaa";

$_ = chr(1234) . 'FiNd';
print;
s/\b($find)\b/ uc($repl) | ( $1 ^ uc($1) ) /eig;
print;  # AAaAa
        # Should be aAaAa