Help for this page
>perl -wMstrict -le "my $orf = 'AAAAXXAAAAAXXAAAAAXPXAAA'; ... print for @digested0; " AAAAXXAAAAAXXAAAAAXPXAAA
>perl -wMstrict -le "my $a = 'AAAAXRXAAAAAXKXAAAAAXRPXAAA'; ... 'XAAAAAXK' 'XAAAAAXRPXAAA' @digested empty