>perl -E"say length sprintf '%5s', $ARGV[0];" abc
5

>perl -E"say length sprintf '%5s', $ARGV[0];" abcdefghi
9