Help for this page
$grammar = q{ start: seq ... OZN: /[A-Z.,?'*:`*]+ / rijec: /[\w-?,:<*`*]+/ };
use Grammar::BNF; my $g = Grammar::BNF.generate(Q:to<END> ... <rijec> => /[\w-?,:<*`*]+/ END );