oopsi i had some simple errors and the main problem was not in the grammar :"), sorry... but my question still stays, how do u do skiping, so that u build the grammar in a step by step manner..

our $tcClassGrammar = q{
    classStart : class(s)
    class : 'class' classinfo stats stats2 stats3 {print "ww: $item[0]
+\n";}
    classinfo :  stuff
    stats : 'Sent' /\d+/ 'bytes' /\d+/ 'pkts' '(dropped' /\d+?,/  'ove
+rlimits' /\d+?\)/  #{ print "xx: item[1]"; $item[1]}
    stats2 : stuff
    stats3 : stuff
    stuff : /.+\n/  {print "$item[1]\n"; $item[1]}
};
[download]