use strict;
use warnings;

use XML::Rules;

open my $symdev_list, '935.xml';

my @rules = (
    dev_name => sub{ my $dev = $_[1]->{_content} },
);


my $parser = XML::Rules->new(rules => \@rules);
$parser->parse( $symdev_list);

close $symdev_list;