>perl -e "@f = split(' ',   ' a b c '); print scalar @f
3
>perl -e "@f = split(/\s+/, ' a b c '); print scalar @f
4