$ perl -lpe '($_=()=/\s+/g)++'   ## leading
 foo bar
3
$ perl -lpe '($_=()=/\s+/g)++'   ## trailing
foo bar 
3
$ perl -lpe '($_=()=/\s+/g)++'   ## both
 foo bar 
4
$ _