for ($text) {
   s/&/&/g;
   s/'/'/g;
   s/"/"/g;
   s/</&lt;/g;
   s/>/&gt;/g;
}