--- reg
+++ reg
@@ -8 +8 @@
-<nocontext: >  # Switch off context substring retention 
+#~ <nocontext: >  # Switch off context substring retention 
@@ -135 +135 @@
-for my $str( q{[ -90.0, [" \\t tab",[7,11]],3e9,"\\r return", null ]}, ){
+for my $str( q{{ "key" : "lime", "blue": "berry" }}, ){