1
2
3
4
5
6
7
8
9
10

{
    next if $zeile =~ / \b OPTIMAL \b /x;

    if ( $match ) {

    }
    else {
        print "UNKNOWN\n";
    }
}

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"