$dokument =~ tr/ / /s;          # mehrfache Blanks weg
$dokument =~ tr/\015/\n/s;      # wandle CR in \n und fasse zusammen