#Fixing IPs
	  
	  if (defined $record[7] and $record[7] ne '' and $record[7] ne '127.0.0.1'  ) {
	
	    my @ips = split /\|/,$record[7] ;
		
	
		foreach my $ip (@ips) {
		 $record[7]=$ip;
		 $csv->print ($ips, \@record); }
		
		
	
	  }
	  
	  #Fixing Domains 
	  if(defined $record[2] and $record[2] ne '') {
	  $csv->print ($hosts,\@record);
	  
	  }