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