Select Code to Download

    if (m/\G menu \s* \( \s* $RXstr \s* \) \s* \{/oxgc) {
        my $name = $1;
...
        my $name = $1;
        parse_driver($name);
    }

our $RXname =  qr/ [a-zA-Z0-9_\-:.\[\]<>;]+ /x;
our $RXhex =   qr/ (?: 0 [xX] [0-9A-Fa-f]+ ) /x;
...
our $RXnum =   qr/ -? (?: [0-9]+ | [0-9]* \. [0-9]+ ) (?: [eE] [-+]? [
+0-9]+ )? /x;
our $RXdqs =   qr/ " (?: [^"] | \\" )* " /x;
our $RXstr =   qr/ ( $RXname | $RXnum | $RXdqs ) /ox;

woz$ perlbrew use 5.18.0
woz$ time perl -CSD registerRecordDeviceDriver.pl softIoc.dbd
...
real    0m9.518s
user    0m8.977s
sys     0m0.044s