foreach ($text) {
   s/&/&/g;
   s/</&lt;/g;
   s/>/&gt;/g;
   s/\n/<br>/g;
}

##</code><code>##

foreach ($text) {
   s/&/&amp;/g;
   s/</&lt;/g;
   s/>/&gt;/g;
   $_ = "<pre>$_</pre>";
}