open (FILE1 , "/stefan/cgi-bin/NoName01.txt") 
@lines = <FILE1>;
$line[0] =~ s/"  "/" "/g;
print $lines[0];