perl -e 'print length $/;'