in reply to Splitting string (regex) while keeping the separator?
$ perl -le' my $orf = "AAAAXRXAAAAAXKXAAAAAXRPXAAA"; my @digested0 = split /(?<=[KR](?!P))/, $orf; print for @digested0; ' AAAAXR XAAAAAXK XAAAAAXRPXAAA [download]