while (<AF>) {
s/&/&amp;/g;
s/</&lt;/g;
s/>/&gt;/g;
print HF;}