23:59 >perl -E "$c = 1; say(length $c);"
1

23:59 >perl -E "say(length $c);"


23:59 >perl -E "$c = sprintf('%d', $c); say(length $c);"
1

23:59 >