- $oldline =~ s/^\s*(\S*)\s*$/$1/;
- $oldline =~ s/\s\s/ /;
- if( $oldline ne "" ) {
- $newline .= (" " . $oldline);
- }
- else {
- $newline = &xmlize( $newline, $infile );
- $newline .= "\n" if( $newline ne "" );
- push( @newlines, $newline );
- $newline = "";
- }
+ $oldline =~ s/^\s*(\S*)\s*$/$1/;
+ $oldline =~ s/\s{2,}/ /;
+ if( $oldline ne "" ) {
+ $newline .= (" " . $oldline);
+ }
+ else {
+ $newline = &xmlize($newline, $infile);
+ $newline .= "\n" if($newline ne "");
+ push( @newlines, $newline );
+ $newline = "";
+ }