($conduit, $permit, $tcpudp, @host) = split( /\s/, $line);
print OUT "$conduit $permit ",(join"|",$tcpudp,@host),"\n";