file data

stuff****more
stuff####

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

##</code><code>##

@array = ("stuff", "morestuff")

##</code><code>##

@array = ("stuff", "stuff***more\nstuff")