There's no need to localize $/ twice, if you combine your code into a single block:

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