my @list;
while(chomp(my $line = <NETLIST>)){
  #Trinary is good ;-)
  $line =~ s/^\+// ? $list[-1] .= $line : push(@list, $line);
}
print map {"$_\n"} @list;