How to Split a String into a Fixed Number of Elements in Perl

use strict;

use warnings;

# --- Example 1: Limiting to 2 elements ---

my $string = "Group: ALL:ALL:Good";

# The third argument (2) is the limit. 

# It tells the split function to stop splitting after it creates 2 elements.

# The first element gets everything before the first colon, and the second element gets the rest of the string.

my @str = split(/:/, $string, 2);

print "--- Example 1 ---\n";

print "$str[0]\n"; # Output: Group

print "$str[1]\n"; # Output:  ALL:ALL:Good

print "\n";

# --- Example 2: Limiting to 3 elements ---

my $x = "object1:object2:object3:rest of the line with a : character";

# Here, the limit is 3. 

# It splits at the first two colons to create the first two elements, 

# and lumps the entire remainder of the string into the third element.

my @x = split(":", $x, 3);

print "--- Example 2 ---\n";

foreach my $s (@x) {

    print "$s\n";

}

# Output:

# object1

# object2

# object3:rest of the line with a : character