Help for this page
my $string = 'see:how:they:code'; my($zeroth, $first, $remainder) = split ':', $string, 3; print $zeroth, "\n", # see $first, "\n", # how $remainder, "\n"; # they:code
my($zeroth, $first, $second) = (split ':', $string)[0..2]; print $zeroth, "\n", # see $first, "\n", # how $second, "\n"; # they