Help for this page

Select Code to Download

Select or download this
```
s/$this/qq{qq{$with}}/eeg;
```

Select or download this

s{$this}{
  chop( my $r = eval "<<_END_\n$with\n_END_" );
  die $@ if $@;
  $r;
}eg;