foreach(@search)
{

if ($_ !~ /^http:\/\//gi)
{
   if ($_ !~ /^#/g)
   {
      if ($_ !~ /mailto:/gi)
      {
         my $force_url = "$base$_";
         push(@search_ready, "$force_url");
      }
   }
}
else
{
   if ($_ =~ /^\#/g) 
   {
      my $force_url = join("", $url, $_);
      #print "$force_url<br>"; 
      push(@search_ready, "$force_url");   
   }
   else
   {
      #print "$_<br>";
      push(@search_ready, "$_");
   }
}

}