+ elsif (s{^\$\-}{}) { $ddbl=undef; }
+ elsif (s{^\$\+}{}) { $ddbl=1; }
+ elsif (s{^\$\(}{}) { die unless $ddbl; oud "\$("; }
+ elsif (s{^\$(\d+)}{}) { die unless $ddbl; oud "\$($1)"; }
+ elsif (s{^\$\{}{}) {
+ die if $ddbl;
+ od '${eval ${call ';
+ $push_nest->('Eval',1);
+ } elsif (s{^([~^]?)(?=[ \t])}{}) {