#!/usr/bin/perl -w 
use strict;
use Data::Dumper;

my $line;
{
		local $/ = undef; 
		$line=<DATA>; 
}
chomp $line;
my @f = split('\n---\n',$line);
print Dumper(\@f);

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