>perl -wMstrict -le
"sub my_split {
   my $rx     = shift;
   my $string = shift;
   return unless @_;
   my $max_i = (sort { $a <=> $b } @_)[-1];
   return (split $rx, $string, $max_i+2)[@_];
   }
 my $s = 'a:b:c:d:e';
 print my_split(':', $s, 0);
 print my_split(':', $s, 3, 2);
 print my_split(':', $s, 5, 4, 9999);
 print my_split(':', $s);
"
a
dc
Use of uninitialized value in print at -e line 1.
Use of uninitialized value in print at -e line 1.
e