Help for this page

Select Code to Download


  1. or download this
    my @parts = $seq =~ /.{3}/sg;
    
  2. or download this
    my @parts = unpack('(a3)*', $seq);