my @saetze_datei=split(/(?<=[\.!?])\s*/,<DATEI>);