s/\b(find)\b/ uc('repl') | ( $1 ^ uc($1) ) /eig;