>perl -wMstrict -le
"my $orf = 'AAAAXXAAAAAXXAAAAAXPXAAA';
 my @digested0 = split /(?<=[KR](?!P))/, $orf;
 print for @digested0;
"
AAAAXXAAAAAXXAAAAAXPXAAA