perl一个小问题求助

....
  28 S 1 -1 0 -1 -1 0 -1 -1 -1 -2 -2 0 -1 -2 -1 ....
  29 C 0 -4 -3 -4 10 -3 -4 -3 -3 -1 -1 -3 -2 -3 -3 ....

  K Lambda
Standard Ungapped 0.1348 0.3277
Standard Gapped 0.0410 0.2670
PSI Ungapped 0.1348 0.3277
PSI 


如上，在这个格式中，我想在输出时从倒数第7行那一行就停下不输出了，即不要最后6行。上边29那一行的数值全都会变化。有什么方法呢？

把规律描述清楚。规律描述不清楚，是没办法编程的。