--- reg
+++ reg
@@ -76,12 +76,21 @@
 
 <token: exp>
   (?: <e> (?: <minus> | <plus> )?  (?: <[DIGIT]> )+  )
+  (?{
+    $MATCH = join '', grep defined, $MATCH{e}, $MATCH{minus}, $MATCH{plus}, @{$MATCH{DIGIT}};
+  })
 
 <token: frac>
   (?: <decimal_point> (?: <[DIGIT]> )+  )
+  (?{
+    $MATCH = join '', grep defined, $MATCH{decimal_point}, @{$MATCH{DIGIT}};
+  })
 
 <token: int>
-  <zero> | (?: <digit1_9> (?: <[DIGIT]> )*  )
+  <MATCH=zero> | (?: <digit1_9> (?: <[DIGIT]> )*  )
+  (?{
+    $MATCH = join '', grep defined, $MATCH{digit1_9}, @{$MATCH{DIGIT}};
+  })
 
 <token: minus>
   \x2D
@@ -114,7 +123,7 @@
   [\x{30}-\x{39}]
 
 }ixs};
-for my $str( q/[ -2.0, 4.333e333, 600 ]/ , ){
+for my $str( q/[ -2.0, 4.333e333, 600, 0, 9 ]/ , ){
     print "#<<@{[time-$^T]}#  $str  \n";
     if( $str =~ $jp ){
         dd(\%/) ; #/