$ perl -le'
my $orf = "AAAAXRXAAAAAXKXAAAAAXRPXAAA";
my @digested0 = split /(?<=[KR](?!P))/, $orf;
print for @digested0;
'
AAAAXR
XAAAAAXK
XAAAAAXRPXAAA