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