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