use strict;
use warnings;

my %count;
while (<>) {
    s{<bib id="CIT-(\w+)-b(0*\d+)">}
    {"<bib id=\"CIT-$1" . ++$count{$1} . "-b$2\">"}ge;
    print;
}