#sub _DBLoad \{

##</code><code>##

      eval <<'__EOI__';
        ...
__EOI__

##</code><code>##

print q{
   foo \{ \} \\\\ bar
};

##</code><code>##

print <<'__EOI__';
   foo { } \\ bar
__EOI__