while (
       $content =~ /
                    schluesselwort\s
                    (\w+?) 
                    \s\{
                    \s*?
                    option1\s\d*?\s
                    (\w+?);                
                    \s*?
                    option2\s\d*?\s
                    (\w+?);                
                    .*?
                    option3\s
                    "(\w+?)";    
                    \s*
                    \}
                    /xsg
      ) {
    push @werte,[$1,$2,$3,$4];
}