$texttosearch =~ s:($searchstring):<FONT COLOR="$color">$1</FONT>:ig;