text section parsing

parse.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $s = do { local $/; <DATA> };

my %section = $s =~ m/
                       ^{{{(.*?)}}}-+$
                       \n(.*?)
                       (?=\n{{{.*?}}}-+$|\Z)
                     /xmsg;

use Data::Dump;
dd(\%section);

__DATA__
{{{hostname}}}-----
myhost
{{{hostname -f}}}-----
myhost.domain.com
{{{dmidecode}}}-----
dadfadf
adfafa
adfadf
{{{mycmd -h}}}-----

dfada
dfas