Regular Expressions used to filter common tags in PHP

Copy codeThe Code is as follows:
$ Str = preg_replace ("// \ s +/", "", $ str); // filter excess carriage returns
$ Str = preg_replace ("/<[] +/si", "<", $ str); // filter <__( "<" followed by a space)
$ Str = preg_replace ("/<\! -.*? ->/Si "," ", $ str); // comment
$ Str = preg_replace ("/<(\!. *?)> /Si "," ", $ str); // filter DOCTYPE
$ Str = preg_replace ("/<(\/? Html. *?)> /Si "," ", $ str); // filter html tags
$ Str = preg_replace ("/<(\/? Head. *?)> /Si "," ", $ str); // Filter head tags
$ Str = preg_replace ("/<(\/? Meta. *?)> /Si "," ", $ str); // filter meta tags
$ Str = preg_replace ("/<(\/? Body. *?)> /Si "," ", $ str); // filter the body tag
$ Str = preg_replace ("/<(\/? Link. *?)> /Si "," ", $ str); // filter link tags
$ Str = preg_replace ("/<(\/? Form. *?)> /Si "," ", $ str); // Filter form labels
$ Str = preg_replace ("/cookie/si", "COOKIE", $ str); // filter COOKIE tags
$ Str = preg_replace ("/<(applet. *?)> (.*?) <(\/Applet. *?)> /Si "," ", $ str); // filter the applet tag
$ Str = preg_replace ("/<(\/? Applet. *?)> /Si "," ", $ str); // filter the applet tag
$ Str = preg_replace ("/<(style. *?)> (.*?) <(\/Style. *?)> /Si "," ", $ str); // filter style labels
$ Str = preg_replace ("/<(\/? Style. *?)> /Si "," ", $ str); // filter style labels
$ Str = preg_replace ("/<(title. *?)> (.*?) <(\/Title. *?)> /Si "," ", $ str); // filter the title tag
$ Str = preg_replace ("/<(\/? Title. *?)> /Si "," ", $ str); // filter the title tag
$ Str = preg_replace ("/<(object. *?)> (.*?) <(\/Object. *?)> /Si "," ", $ str); // filter object tags
$ Str = preg_replace ("/<(\/? Objec. *?)> /Si "," ", $ str); // filter object tags
$ Str = preg_replace ("/<(noframes. *?)> (.*?) <(\/Noframes. *?)> /Si "," ", $ str); // filter noframes tags
$ Str = preg_replace ("/<(\/? Noframes. *?)> /Si "," ", $ str); // filter noframes tags
$ Str = preg_replace ("/<(I? Frame. *?)> (.*?) <(\/I? Frame. *?)> /Si "," ", $ str); // filter frame labels
$ Str = preg_replace ("/<(\/? I? Frame. *?)> /Si "," ", $ str); // filter frame labels
$ Str = preg_replace ("/<(script. *?)> (.*?) <(\/Script. *?)> /Si "," ", $ str); // filter script tags
$ Str = preg_replace ("/<(\/? Script. *?)> /Si "," ", $ str); // filter script tags
$ Str = preg_replace ("/javascript/si", "Javascript", $ str); // filter script tags
$ Str = preg_replace ("/vbscript/si", "Vbscript", $ str); // filter script tags
$ Str = preg_replace ("/on ([a-z] +) \ s * =/si", "On \ 1 =", $ str ); // filter script tags
$ Str = preg_replace ("// & #/si", "& #", $ str); // filter script tags