Or, you can use a block. It's neater.

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