my @devices =
  map { my $x; defined($x=parse_node($_)) ? $x : () }
  @nodes;