Text conditioner for E2 (thing)

#!/usr/bin/perl
##########################################################
# 
# txt2e v1.3 - text conditioner for everything
# "Now, with 100% more Perl Power!"
# by Jason H. Reeves - <jhr@net-noise.com>
# Released/Created: 6-19-2000
# License: GPL
#
##########################################################

print "<PRE>\n";
while(<>)
{
        s/&/&amp;/g;
        s/\[/&#91;/g;
        s/\]/&#93;/g; 
        s/</&lt;/g;
        s/>/&gt;/g;
        print "$_";
}

print "</PRE>\n";
##Shameless plug. :-)
print "Processed by [text conditioner for everything|txt2e] written by [jhr]\n";