Help for this page

Select Code to Download


  1. or download this
    s/\b(find)\b/$1 eq uc($1) ? "REPL" : $1 eq ucfirst(lc($1)) ? "Repl" : 
+"repl"/gie
  2. or download this
    my %repl = (
    find => 'repl',
...
    Find => 'Repl',
);
s/\b(find)\b/$repl{$1}||$repl{lc $1}/gie