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+?,/  'overlimits' /\d+?\)/  #{ print "xx: item[1]"; $item[1]}
    stats2 : stuff
    stats3 : stuff
    stuff : /.+\n/  {print "$item[1]\n"; $item[1]}
};