open (FILE,"$FORM{'TextFile'}");
	@LINES = <FILE>;
	close (FILE);
	$text = join(' ',@LINES);
	$text =~ s/\n/ /g;
	foreach $variable (@variables) {
		if ($FORM{$variable} eq "") {
			print "incomplete!\n";
			exit;
		}
		$text =~ s/<!--$variable-->/<STRONG>$FORM{$variable}<\/STRONG>/g;
	}
	$text =~ s/A\/an <STRONG>(a|e|i|o|u)/An <STRONG>$1/g;
	$text =~ s/a\/an <STRONG>(a|e|i|o|u)/an <STRONG>$1/g;
	$text =~ s/A\/an/A/g;
	$text =~ s/a\/an/a/g;
        print $text;