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