file data

stuff****more
stuff####

end file data
code
local $/ = "****"
while <FILE> {
     chomp $_
     my @array = (push, $_)
     $/= "####"}