if($element =~ m!^ *([\w_]+) *: *; *$!)#keine relframe,keine überklasse
    {     
        print '<\frame_entry>',"\n";
    }
    elsif($element =~ m!^ *([\w_]+) *: *([\w_]+)*; *$!)#relframe aber keine Überklasse
    {
         print "Fall1:relframe aber keine Überklasse\n";
    }
    elsif($element =~ m!^ *([\w_]+) *: *;*([\w_]+) * $! )#kein relframe aber überklasse
    {
        print "Fall2:keine relframe aber Überklasse\n";
    }
    
    elsif($element =~ m!^ *([\w_]+) *: *([\w_]+)*; *([\w_]+) * $!)#relframe und überklasse
    {
         print"Fall3:relframe und überklasse\n";
    }
    elsif($element =~ m!^ *([\w_]+) *: *[^\;]+ *;  * $!)#mehrere relframes, keine überklasse
    {
        print "Fall4: mehrere relframes, keine überklasse\n";
    }
    
    elsif($element =~ m!^ *([\w_]+) *: *[^\;]+ *; *([\w_]+) * $!)#mehrere relframes,überklasse
    {
        print "Fall5: mehrere relframes,überklasse\n";
    }
    else {print "FEHLER\n";}