Select Code to Download

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