$string =~ s/^.* \K [CBf]/K/xs;