perl -e '$l=q(รถ); print length $l,qq(\n)'