foreach(@code){
    $_=~s/</&lt;/g;
    $_=~s/>/&gt;/g;
  }