s/$this/qq{qq{$with}}/eeg;

##</code><code>##

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