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