Help for this page

Select Code to Download

Select or download this
```
s/\b$find\b/$replace/g
```

Select or download this

for my $line (@lines) {
    for my $find(sort {length($b) <=> length($a)} keys %ids) {
     $line =~ s/$find/$ids{$find}/g;
  }
}