in reply to split a squence by 3 letters
my @groups = $seq =~ /.{3}/sg; # Ignore extra letters my @groups = $seq =~ /.{1,3}/sg; # Return extra letters as a group [download]