#!/usr/bin/perl

while(<>) {
  next if(/^%/);
  print if($flag);
  $flag = 1 if(/^\s*@[Dd][Aa][Tt][Aa]/);
}
