879 	# Remove nested parentheses.
   880 	while ($contents =~ s/\(([^\)]*)\(/\($1\05/g ||
   881 	       $contents =~ s/\05([^\(\)]*)\)/ $1 /g) {}