my @parts = unpack('(a3)*', $seq);