--- reg
+++ reg
@@ -40,12 +40,15 @@
 
 <token: false>
   \x66\x61\x6c\x73\x65
+  (?{ $MATCH = ::FALSE(); })
 
 <token: null>
   \x6e\x75\x6c\x6c
+  (?{ $MATCH = undef; })
 
 <token: true>
   \x74\x72\x75\x65
+  (?{ $MATCH = ::TRUE(); })
 
 <token: object>
   (?: <.begin_object> (?: (?: <member> (?: (?: <.value_separator><member> ) )*  ) )? <.end_object> )
@@ -117,3 +120,6 @@
     }
     print "#>>@{[time-$^T]}#\n";
 }
+sub TRUE { bless \(my$s=!!1), 'TRUE' }
+sub FALSE { bless \(my$s=!!0), 'FALSE' }
+