my $_index = sub {
    my $cnt = 0;
    local $[ = 1;  # ook!
    my $pos = -1;
    ++$cnt while $pos = index($dta,"\n\n",$pos+2);
    $cnt{_index} = $cnt;
};

##</code><code>##

my $_while_re = sub{
    my $cnt = 0;
    my $recsep = "\n\n";
    $cnt++ while $dta =~ /$recsep/g;
    $cnt{_while_re} = $cnt;
};