if ($zeile !~ /\d*\t\w*\t[\w* ]\t[\w* ]\t[\w* ]\t[\w* ]\t[\w* ]\..{1,4}\n/ ) { $error = 1; }