while($urllist =~ m{(http://.+\.html)}g){
 my $url=$1;
 my $html = get("$url");
 unless ($html) {
   print "Couldn't fetch $url.";
   next;
 }

 while($html=~ m{(find whatever I want)}gi){
  $mysearch=$1;
  print output "$url|$mysearch\n";}
 }
}