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

##</code><code>##

      $find =~ s#([@wilds])#<font color=red>\1</font>#g;