++$cnt while $str =~ /\s+/g;