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