sub split0($;$$) {
   my $pattern = shift;
   my $s       = @_ ? shift : $_;
   my $limit   = @_ ? shift : -2;

   return $s if $limit == 0;
   return split($pattern, $s, $limit == -2 ? 0 : $limit);
}