my @parts = $seq =~ /.{3}/sg;