my %names;
while ($str=~/(\S+)/g) {
	$names{$1}++;
}