--- reg +++ reg @@ -135 +135 @@ -for my $str( q{[ "\\" quote \\t tab \\uD83D\\uDC2A U+1F42A DROMEDARY CAMEL" ]}, ){ +for my $str( q{[ -90.0, [" \\t tab",[7,11]],3e9,"\\r return", null ]}, ){