my($zeroth, $first, $second) = (split ':', $string)[0..2];
print $zeroth, "\n",   # see
      $first, "\n",    # how
      $second, "\n";   # they