sub split0($;$$) {
   @_ == 1 && return split($_[0]);
   @_ == 2 && return split($_[0], $_[1]);
   $_[2] == 0 && return $_[1];
   return split($_[0], $_[1], $_[2]);
}