Help for this page
my @devices = grep{ defined( $_ = parse_node( $_ ) ) } @nodes;
my @devices = grep { defined } map { parse_node( $_ ) } @nodes;