Anonymous

$match = array (
	"#\<script(.*?)\>(.*)\</script\>#i",
	"#\<script(.*?)\<(.*?)\>#i",
	"#\<script(.*?)\>#i",
	"#\<iframe(.*?)(\</iframe\>|\<|\>)?#i",
	"#\<script\>(.*?)\</script\>#i",
	"#\<meta(.*?)\>#i",
	"#\<frameset\>\<frame(.*?)\>\</frameset\>#i",
	"#\<embed(.*?)\>\</embed\>#i",
	"#\<(.*?)body(.*?)\>#",
	"#\<(.*?)title(.*?)\>#",
	"#\<(.*?)html(.*?)\>#",
	"#\<(.*?)div(.*?)\>#"
);
			
$replace = array (
	"&lt;script$1&gt; $2 &lt;/script&gt;",
	"&lt;script$1 &lt;$2&gt;",
	"&lt;script$1&gt;",
	"&lt;iframe $1 &gt;",
	"&lt;script&gt;$1&lt;/script&gt;",
	"&lt;meta $1&gt;",
	"&lt;frameset&gt;&lt;frame$1&gt;&lt;/frameset&gt;",
	"&lt;embed $1&gt;&lt;embed&gt;",
	"&lt;$1body$2&gt;",
	"&lt;$1title$2&gt;",
	"&lt;$1html$2&gt;",	
	"&lt;$1div$2&gt;"	
);