{ next if $zeile =~ / \b OPTIMAL \b /x; if ( $match ) { } else { print "UNKNOWN\n"; } }