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