{
   local $/ = ">";
   while (<FILE>) {
      ...
   }
}