$dokument =~ tr/ +/ /s;          # mehrfache Blanks weg