perl -ne 'print unless /\./' datei > datei2