@cleanet = scalar <NETLIST>;
while (<NETLIST>) {
  if (s/^\+// or s/^\*\+//) { 
    $cleanet[-1] =~ s/\n/ /;
    $cleanet[-1] .= $_ 
  } else { push @cleanet, $_ }
}