while (<>) { 
	chomp; 
	s/:/ /g; 
	@a = split; 
	$sum += $#a;
} 
$sum/=2;
print "$sum\n";