Help for this page

Select Code to Download

Select or download this

while (<DATA>) {
  s/foo/bar/ if ($_ !~ /toto.*?foo/);
...
__DATA__
toto 4dsf4qsd foo
mama 432fz foo

Select or download this
```
toto 4dsf4qsd foo
mamaf 432fz bar
```