gistfile1.txt

use Grammar::Tracer;

grammar TEST {
 
 
rule  TEST         { <from> <where> }
  rule  from              {:i FROM <selectedtable> [',' <selectedtable>]* }
    rule  selectedtable   {[<shema_name>'.']?<tablename>['@'<linkname>]? [<alias>]? }
        token shema_name  { <identifier> }
        regex tablename   { <identifier> }
        token linkname    { <identifier> }
        regex alias       { <identifier> }
        token identifier  {:i <ident>+ }
  rule where              {:i WHERE .* }
    regex comma   {',' }
}

 
my $fic = q:to/FIN_INI/;
FROM table1 ,table2  WHERE t1 = t2(+) 
FIN_INI


say TEST.parse($fic, rule => 'TEST');