perl -e 'print length $ARGV[0]' some-string