if($element = ~ m!^([\w_]+) :([\w_]+);([\w_]+) $ )
    {
        print "geht auch das?";
    
    }
    elsif($element = ~ m!^([\w_]+) :([\w_]+); $)
    {
        print "geht das?";
    }
    elsif($element = ~ m!^([\w_]+) :; $)
    {
        
        print "</frame entry>";

    }
    else{print "Fehler in Datei: Syntax nicht eingehalten";}