testeawk

BEGIN{FS=':'}

NF>1    {i=2;
            while(i<NF) {
                         linha = linha ":" $i ; i++ ;
                 }
        autores[$1] = linha ;
        contador[$1]++;
        }

END {
for (s in autores){
if(contador[s] == 1 ) print s;
else print "==" contador[s] "==" s
}