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