перл грамматика. ошибка в разделении операторов

[juliajuliajulia]

пожалуйста,помогите,кто шарит в перле...
кто-нибудь видит ошибку??
в разделении операторов друг от друга

#!/usr/bin/perl

use Parse::RecDescent;
 
 my $grammar = << 'GRAMMAR';
     file: 'program' iden ';' body  /\Z/
     body: 'begin' operator(s) 'end.'
     operator: 'read(' iden ');' | 'write(' iden ');' | iden ':=' iden ld  chislo ';' |
               'for' iden '=' chislo 'to' chislo 'do' operator(s)';'
               'while' min 'do' operator ';'
               'repeat' operator(s) 'until' iden znak chislo
     min:iden znak iden |iden znak chislo | chislo znak iden
     znak: '>'|'<'|'='|'<='|'>='| '<>'
     ld   : '+' | '-' | '/' | '*'
     iden: /\w+/
     chislo: /\d+/
 
 
GRAMMAR
my $p = new Parse::RecDescent( $grammar ) or die "Compile error\n";
 
$my_text="program h;
           begin
              for i=1 to 5 do read(x);
 
              while f < 10 do
                 write (h);
 
              repeat
                 fg := fg + 10 ;
                 read (fg);
              until  fg = 200
 
            end.";
 
          if ( defined $p->file($my_text1) ){
          $my=$p->file($my_text);
          $find=$my->{name_var};
          print "syntax OK\n";
      }else{
           print "Syntax error\n";
      }

я даже уже знаю где ошибка,только исправить для меня-трудность дикая,тк в перле не разбираюсь...(

operator: 'read(' iden ');' | 'write(' iden ');' | iden ':=' iden ld  chislo ';' |

вот здесь ошибка, слишком много ';' стоит.
надо упростить,вызываая нейм оператор

operator: nameoperator ';'

фишка в том,чтобы при запуске компилятор не ругался и не выдавал ошибок. тоесть задача в том,чтобы синтаксически правильно описать три цикла. фор, уайл, репит