my @List=();
{
  local $/ = undef;
  open( FILE, "file" );
  @List = split( /\n%{5}\n/, <FILE> );
  close (FILE);
}
# $/ is back to what it used to be!