Select Code to Download

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

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