{
  local $/ = "aaaa\n";
  <FILE>;
  $/ = '%';
  while( <FILE> ) { 
    #do something here
  }
}