#!/usr/local/bin/perl -w
# converts html to txt with all characters protected
# usage:
# (cd ~/website/dasher/english ; ./html2txt.pl dasherlink1.html > dasherlink1.txt)
# ( cd ~/website/dasher/english ; ./html2txt.pl dasherlink2.html > dasherlink2.txt ) ; make dasherenglish
eval "\$$1=\$2" while @ARGV && $ARGV[0]=~ /^(\w+)=(.*)/ && shift;
while(<>){
s/\&/\&/g;
s/\\</g;
s/\>/\>/g;
print;
}