sub _rolf_recognize_limited_urls {
  my ($input, $max) = @_;
  my @captures = ();
  @captures[0..$max-1] = split /,(?=https?:)/, $input, $max+1;
  return [ @captures ]; 
}   

##</code><code>##

sub _rolf_recognize_limited_urls {
  my ($input, $max) = @_;
  my @captures = ();
  @captures[0..$max-1] = split /,(?=https?:)/, $input, $max+1;
  return [ grep { defined($_) } @captures ];
}