...
my @arr = $string =~ / .*? [KR] (?!P)  | [^KR]+$ /gx;
...