@REM=("
@c:\bin\perl.exe c:\bin\%0.BAT %1 %2 %3 %4 %5 %6 %7 %8 %9
@goto end ") if 0;
#	This script will strip the HTML markup out of a file.
#	Output will be in files named 'xxxx.out'
#
#	Copyright Alan Jackson 2/96
#
#	Version 1.0	2/23/96

#	initialize

if (!@ARGV) {
	die "\n$0: Usage: $0 [<file>] [<file>..<file>]\n";
}

foreach $file (@ARGV) {

	if (!-e $file) {
		print STDERR "File $file not found\n";
	}
	else {
		($fname, $type) = ($file =~ /^([^.]+)\.?(.*)$/);
		   push(@INFILES, $file);
		   push(@INNAMES, $fname);
	}
}
print STDERR "@INFILES\n";


foreach $file (@INFILES) {

	$fname = shift @INNAMES;
	open (FILE,"<$file") || die "Can't open $file $!\n";
	print STDOUT "\nReading input file: $file\n";
	open (OUTPUT,">$fname.out") || 
		die "Can't open output file $fname.out\n";


	while (<FILE>){

		s/<[^<>]+>//g;
		print OUTPUT $_;

	}
	close(OUTPUT);
}

@REM=("
:end ") if 0;