perl -e "print length('  '), length(''), length(' '), length('    ')"

or

perl -e "print length for ('  ','',' ','    ')"