Select Code to Download

$url = $2;                            <-- called $url here
print "$url\n";
push @urls, $new_url;  # or @new_urls <-- called $new_url here.

   while ($html =~ m{...}g) {
      my $new_url = $2;
      print "$new_url\n";
      push @urls, $new_url;
   }