$search = array ('@<script[^>]*?>.*?</script>@si',
                  '@<[\/\!]*?[^<>]*?>@si',          
                  '@([\r\n])[\s]+@',                
                  '@&(quot|#34);@i',                                  '@&(amp|#38);@i',
                  '@&(lt|#60);@i',
                  '@&(gt|#62);@i',
                  '@&(nbsp|#160);@i',
                  '@&(iexcl|#161);@i',
                  '@&(cent|#162);@i',
                  '@&(pound|#163);@i',
                  '@&(copy|#169);@i',
                  '@&#(\d+);@e',
      '@&(eacute|#233);@i',
      '@&(egrave|#232);@i',
      '@&(agrave|#224);@i',
      '@&(aacute|#225);@i',
      '@&(acirc|#226);@i',
      '@&(atilde|#227);@i',
      '@&(auml|#228);@i',
      '@&(aring|#229);@i',
      '@&(ccedil|#231);@i',
      );
   $replace = array ('',
                  '',
                  '\1',
                  '"',
                  '&',
                  '<',
                  '>',
                  ' ',
                  chr(161),
                  chr(162),
                  chr(163),
                  chr(169),
                  'chr(\1)',
         'e',
         'e',
         'a',
         'a',
         'a',
         'a',
         'a',
         'a',
      'c',
         );
   |