$perl -le'$,=$";print"002".."020"' 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 $perl -e'print length q/$,=$";print"002".."020"/' 23