Help for this page

Select Code to Download

Select or download this
```
s/(n(?i:s|c)e)/$1 ^ "nse" ^ "nce"/gie;
```

Select or download this

my %word_map = (
  nce => "nse",
...
my $re = join "|", map qr/\Q$_/i, keys %word_map;
s/($re)/$word_map{lc $1}/ge;
print