------------- 8< ---------
my $lexer = make_lexer(
    sub { shift @sql },  # iterator
    [ DQUOTED   => qr/"[^"]+"/     ],
    [ QUOTED    => qr/'[^']*'/     ],
    [ DQWORD    => qr/"\w+"/       ],
    [ WORD      => qr/\w+/i        ],
    [ COMMA     => qr/,/           ],
    [ SPACE     => qr/\s+/, sub {} ],
);
------------- 8< ---------