Select Code to Download

my %values= (
    '^' => '^',
...
...

s!\^\(([^)]+)\)!$values{ $1 }!g;

package My::Document;

...
    Escaped: ^(^).
TMPL
;