$with =~ s/^\*$/\\*/mg;
s{$this}{
  my $r = eval qq[<<"*"\n$with\n*\n];
  die $@ if $@;
  chop $r;
  $r;
}eg;