@arr = $string =~ m/(.*?[KR])(?!P)/gs;