open(FILE, "<file1.txt") || die $!;
{
local $/ = "****";
my $a = <FILE>;
chomp $a;
push @array,$a;
$/= "####";
while (<FILE>) {
     chomp $_;
     push (@array, $_);
     }
close (FILE);
}
[download]