in reply to Variable number of words/fields in a line/record
($conduit, $permit, $tcpudp, @host) = split( /\s/, $line); print OUT "$conduit $permit ",(join"|",$tcpudp,@host),"\n"; [download]