(?{ 
#~             my $s = $^N; 
#~             $s =~ s/\\u([0-9A-Fa-f]{4})/\\x{$1}/g;
#~             $s =~ s/@/\\@/g;
#~             my $v = eval $s;
            my $v = BONKERS($^N);
            say "->have string '$v'" if TRACE_JSON;
            [ $^R, $v ] })
      )