system('perl', '-i', '-ne', 'print if $. % 2', $datei);