Select Code to Download

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

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

$with =~ s/^\*$/\\*/mg;
s{$this}{
...
  chop $r;
  $r;
}eg;