use strict;
use warnings;

my $cnt = 1;
while (<>) {
    s/$/sprintf '%04d', $cnt++/e if /^\*+$/;
    print;
}