Select Code to Download

sub url_segments {
  local($_) = @_;
...
    push @$segments, { $parts[$_] => $matches[$_] } for 0 .. $#parts;
  $segments
}