if ( $line =~ /ObjectType1/ ) {
        $context = "ObjectType1" ;
    }
    if ( $line =~ /\}/ ) {
        $context = "" ;
    }