#!/usr/bin/perl -w
# Perl script for tex2html
# Last edited 04-Feb-2003
use strict;

my ($infile,$outfile)=@ARGV;

open(SOURCEFILE, "< $infile"); undef $/; $_=<>; close SOURCEFILE;

s/&/&amp;/g;  s/</&lt;/g;  s/>/&gt;/g;

#s|[a-z]+|<I>$&</I>|ig;

s/\+/ \+ /g;  s/-/ - /g;  s/=/ = /g;
s|\^\{(.*?)\}|<SUP>$1</SUP>|g;   s|\^(.)|<SUP>$1</SUP>|g;
s|_\{(.*?)\}|<SUB>$1</SUB>|g;    s|_(.)|<SUB>$1</SUB>|g;

open FILE, "> $outfile"; print FILE $_; close FILE;