print <<"_END_";
It works!
\_END_
It really does.
_END_

##</code><code>##

print <<"*END*";
It works!
\*END*
It really does.
*END*

##</code><code>##

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