$slurp.=$_ while <DATA>;
@array=split/^=+([\w\s]+)=+$/ms, $slurp;
 
use Data::Dumper;
print Dumper \@array;
 
__DATA__
{{{your data}}}