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

##</code><code>##

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

##</code><code>##

$count = () = s/\S+//g;