Select Code to Download

   foreach (@results) {
      if ($_ =~ m/(http\:\/\/).+/) {
         print "URL found: ".$_,"\n";
      }
   }

   foreach (@results) {
      if (/(http\:\/\/).+/) {
...
         print "\n";
      }
   }

   foreach $url (@results) {
      if ($url =~ m/(http\:\/\/).+/) {
         print "URL found: " . $url, "\n";
      }
   }