%type test.txt | perl kk2.pl

aaron has a KK of B
bob has a KK of A
cindy has a KK of