Select Code to Download

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

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