my $string = 'see:how:they:code';
my($zeroth, $first, $remainder) = split ':', $string, 3;
print $zeroth, "\n",    # see
      $first, "\n",     # how
      $remainder, "\n"; # they:code