split(/(?<=[KR])(?!P)/, $a);