my $cnt = '0000';
while (<>) {
    s/^\*{3,}\K$/" ". ++$cnt/e;
    print;
}