Select Code to Download

ALPHA  :  /[A-Za-z]/
BIT    :  /[01]/
...
hex_val            :  "x" (_hex_val_range | _hex_val_concats )

prose_val          :  "<" /[\x20-\x3d\x3f-\x73]*/ ">"

#!/usr/bin/env perl
use strict;
...
print {*STDERR} "parsed it all\n" unless length $grammar;

print {*STDOUT} $parsed;