my @groups = $seq =~ /.{3}/sg;    # Ignore extra letters
my @groups = $seq =~ /.{1,3}/sg;  # Return extra letters as a group