perl -F'\*' -lane '$h{$F[1]}++;}{print for keys %h' yourfile.txt