sub HTMLhighlight {
  my($searchterms,$instr,$color) = @_;
  my (@terms)=split(/\ /,$searchterms);
  foreach $i (0..$#terms) {
    $instr =~ s/(?!<.*)($terms[$i])(?!.*>)/<b style=\"background:$color\">$1<\/b>/gi;
  }
  return $instr;
}