my $Zeichen = read(DATEI);