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