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