Help for this page
Select Code to Download
Select
or
download this
my @parts = $seq =~ /.{3}/sg;
Select
or
download this
my @parts = unpack('(a3)*', $seq);