Select Code to Download

my @devices =
  grep { defined($_ = parse_node($_)) }
  my @tmp = @nodes;

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

my @devices = map { parse_node($_) } @nodes;