Select Code to Download

#!/usr/bin/perl -l

...
    s/\b($find)\b/ uc($repl) | ( $1 ^ uc($1) ) /eig;
    print
}

here is >repl:2< data
here is >Repl:2< data
here is >REPL:2< data
here is >rEpL:2< data