Select Code to Download

my $_index = sub {
    my $cnt = 0;
...
    ++$cnt while $pos = index($dta,"\n\n",$pos+2);
    $cnt{_index} = $cnt;
};

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