I'm processing a file by substituting a few words, and printing the text out as a file. Except for the 1st line, all the other lines in the processed file have a white space in front of them. I need to get rid of the spaces cause it's a perl file and recieve an internal server error. Any Idea's? Here's the code: -Lisa

#!/usr/local/bin/perl


$InputFile = "input.txt";
$TextFile = "original_file.pl";
$Filetext= "modified_file.pl";
$CGIURL = "http://www.webiste/cgi-local/mainfile.pl";




print "Content-type: text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
    ($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    if ($FORM{$name}) {
        $FORM{$name} = "$FORM{$name}, $value";
    }
    else {
        $FORM{$name} = $value;
        push (@variables,$name);
    }
}

if ($FORM{'TextFile'}) { &SendFile; }

if (-d $TextFile) {
    opendir(FILES,$TextFile);
    @tempfiles = readdir(FILES);
    closedir(FILES);
    foreach $file (@tempfiles) {
        if (-T "$TextFile/$file") {
            push (@files, $file);
        }
    }
    srand();
    $files = @files;
    $file = @files[int(rand($files))];
    $TextFile = $TextFile."/".$file;
}

open (FILE,"$TextFile");
@LINES = <FILE>;
close (FILE);
$text = join(' ',@LINES);
$text =~ s/\n/ /g;
$text =~ s/</\n</g;
$text =~ s/>/>\n/g;
@text = split('\n',$text);

undef (@variables);

foreach $line (@text) {
    if ($line =~ s/<!--(.*)-->/$1/) {
        push (@variables,$line);
    }
}

@sortedvariables = sort (@variables);

open (FILE,"$InputFile");
@LINES = <FILE>;
close (FILE);

foreach $line (@LINES) {
    if ($line =~ /<!--InputWords-->/i) {
        print "<FORM METHOD=POST ACTION=\"$CGIURL\">\n";
        print "<INPUT TYPE=HIDDEN NAME=TextFile ";
        print "VALUE=\"$TextFile\">\n";
        print "<P><CENTER><TABLE>\n";
        foreach $variable (@sortedvariables) {
            next if ($variable eq $lastvariable);
            print "<TR><TD ALIGN=RIGHT><P>$variable: </TD>";
            print "<TD><INPUT TYPE=TEXT NAME=\"$variable\" SIZE=25>";
            print "</TD></TR>\n";
            
                        $lastvariable = $variable;
        }
        print "</TABLE></P>\n";
        print "<P><INPUT TYPE=SUBMIT VALUE=\"LOAD\">\n";
        print "</CENTER></P></FORM>\n";
    }
    else {
            
             print $line;
    }
}

exit;


sub SendFile {
    open (FILE,"$FORM{'TextFile'}");
    @LINES = <FILE>;
    close (FILE);
    $text = join(' ',@LINES);
    #$text =~ s/\n/ /g;
    $text =~ s/^\s+//;
        $text =~ s/\s+$//;
              

        foreach $variable (@variables) {
        if ($FORM{$variable} eq "") {
            print "incomplete!\n";
            exit;
        }
        $text =~ s/<!--$variable-->/$FORM{$variable}/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;
     

open(OUT,">$Filetext") or die $!;
print OUT "$text\n" or die $!; 
close(OUT) or die $!;

        
    exit;
}
[download]