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