while (s/\<([^\>]*?(\<|$))/\&lt\;$1/g) { 1; }