Select Code to Download

use strict;
my $sql = <<'--SQL--';
...
    [ BAB    => qr/ba+b/i       ],
    [ SPACE  => qr/\s+/, sub {} ],
);

['A','aaaa'], ['A','a'], 'b', ['A','aaaa'], 'b', ['A','a']

[ WORD      => qr/\w+/i        ],
[ DQWORD    => qr/"\w+"/       ],