use strict;
use Data::Dumper;

my @f;
{
	local $/ = "\n---\n";
	chomp(@f = <DATA>);
}

print Dumper(\@f);
exit;

__END__
line1
---
line2
---
line3
---