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

##</code><code>##

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

##</code><code>##

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