my @arr = split /(?<=[KR])(?=[^P])/;