my @bloecke = do { local $/; split /^#.*\n/m, <$INPUT_DATEI_HANDLE> };