Remove DOM element conditionally

.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Mojo::DOM ();
use Mojo::File ();

my $xml_file = shift || die "Missing XML file\n";

my $path = Mojo::File->new($xml_file);

my $dom = Mojo::DOM->new($path->slurp);

$dom->find('g')->each(sub {
  $_->remove if $_->{id} =~ /^path11[0-9]{3}$/;
});

print $dom;