--- reg
+++ reg
@@ -8 +8 @@
-<nocontext: >  # Switch off context substring retention 
+#~ <nocontext: >  # Switch off context substring retention 
@@ -129 +129 @@
-for my $str( q/[ -2.0, 4.333e333, 600, 0, 9 ]/ , ){
+for my $str( q{[ "\\" quote \\t tab" ]} , ){