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