print $count = $_ =~ s/\S+//g;