my @zeilen = split(/(\#\#*.?\#\#)|\x0d\n|\n|\t/ig, $text);