@fileIn = grep {!m/^"\Q$suchen\E"/} @fileIn;