Help for this page

Select Code to Download

Select or download this
```
$string =~ s/ (?=[^{}]*})/_/g;
```

Select or download this

my @sub = qw(men boy girl);
$string =~ s/(?<={)[^}]*(?=})/shift @sub/ge;