my $ref = XMLin(<file);
my $keys_you_dont_want_re = 'key1|key2|key3|...';
$ref = { map { $ref->{$_} } grep !/^($keys_you_dont_want_re)$/, keys %$ref };