Select Code to Download

use HOP::Lexer 'string_lexer';
my $text = 'xselectx';
...
  [KEYWORD  => qr/select/i],
  [WORD     => qr/\w+/    ]
);

['WORD','x'],
['KEYWORD','select'],
['WORD','x']

use HOP::Lexer 'string_lexer';
my $text = 'select xselectx';
...
  [WORD     => qr/\w+/    ],
  [KEYWORD  => qr/select/i],
);

['WORD','select'],
' ',
['WORD','xselectx']