#!/usr/local/bin/perl print "<PRE>\n"; while (<>) { s/&/&/g; s/</</g; s/>/>/g; s/"/"/g; print $_; } print "</PRE>\n";