for (@source) {
  s/&/&/g;
  s/</&lt;/g;
  print;
}