my @list;
#for is very perlish, so is using $_
chomp && $_ =~ s/^\+// ? $list[-1] .= $_ : push(@list, $_) for <NETLIST>;
print map {"$_\n"} @list;