Help for this page

Select Code to Download


  1. or download this
    my $find= "find";
my $repl= "@@@@";
...
s/\b($find)\b/ uc($repl) | ( $1 ^ uc($1) ) /eig;
print;  # @```
        # Should be @@@@
  2. or download this
    my $find= chr(1234) . 'find';
my $repl= "aaaaa";
...
s/\b($find)\b/ uc($repl) | ( $1 ^ uc($1) ) /eig;
print;  # AAaAa
        # Should be aAaAa