foreach my $wild (@wilds)
      {
         $find =~ s/$wild/<font color=red>$wild<\/font>/;
      }