my $OldNewLine = $/;
$/ = undef;
open( FILE, "file" );
my @List = split( /\n%{5}\n/, <FILE> );
close (FILE);
$/ = $OldNewLine;