use strict;
use warnings;
use XML::Rules;

my $rules =XML::Rules->new(
  style => 'filter',
    rules => {
      '^dob'  => 'skip',
      '^dobs'  => 'skip',
    },
);

$rules->filter( *DATA );

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
    <record category="B" editor="" entered="2000-12-04" sub-category="PEP" uid="7320" updated="2018-12-12">
...