while (<INFILE>){
	
	my @Elements = split(/;/,$_);	
	
		if ($Elements[1] ne '   '){
		print OUTFILE "$_";
		}
	}