use strict;
use warnings;
$_ = <<EOF;
abc:
  asdf1
  asdf2

def:
  asdf3

ghi:
  asdf4
  asdf5
EOF

my @tkns = split /(\n{2,})/;
my @pars;
for ( @tkns ) {
    if ( /^\n+$/ ) {
        $pars[$#pars] .= $_;
    } else {
        push @pars, $_;
    }
}

printf "found %d paragraphs:\n", scalar @pars;
print "<", join( "><", @pars ), ">\n";


##</code><code>##

found 3 paragraphs:
<abc:
  asdf1
  asdf2

><def:
  asdf3

><ghi:
  asdf4
  asdf5
>