my $parser = XML::LibXML->new();
$dom = $parser->parse_file( "OLDFILE" );

for my $matrix ( $dom->findnodes( q{  //version_matrix/vm[@type='br']  } )) {
    my $version = $matrix->findvalue('./release/@version');
    if( $version gt $brver ) { 
        print "discarding version_matrix for $version\n";
        my $version_matrix_node = $matrix->parentNode;
        $version_matrix_node->unbindNode;
    }
}
my $changed = $dom->toString;
my $fh;
open( $fh, '>', "NEWFILE" );
print { $fh }  $changed;  

##</code><code>##

<supported_version_matrix>
    <version_matrix>
        <app>
            <release version="10.1.e">
                <fixed>125.2004</fixed>
            </release>
        </app>
        <vm type="br">
            <release version="7.3.0">
            </release>
        </vm>
    </version_matrix>
    <version_matrix>
        <app>
            <release version="10.1.e">
                <fixed>125.2004</fixed>
            </release>
        </app>
        <vm type="br">
            <release version="7.2.2">
            </release>
        </vm>
    </version_matrix>
    . . .
</supported_version_matrix>

##</code><code>##

<supported_version_matrix>


    <version_matrix>
        <app>
            <release version="10.1.e">
                <fixed>125.2002</fixed>
            </release>
        </app>