Help for this page

Select Code to Download


  1. or download this
    my $a = "AAAAXRXAAAAAXKXAAAAAXRPXAAA"  # sample sequence
@digested0 = split(/[KR](?!P)/, $orf); # cut at every K or R, except i
+f followed by a P
print join("\n",@digested0);
  2. or download this
    AAAAX
XAAAAAX
XAAAAAXRPXAAA
  3. or download this
    AAAAXR
XAAAAAXK
XAAAAAXRPXAAA