Select Code to Download

sub split0($;$$) {
   my $pattern = shift;
...
   return $s if $limit == 0;
   return split($pattern, $s, $limit == -2 ? 0 : $limit);
}

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