$ perl -le'print "x" x ($ARGV[0]-1)' 100 | perl -le'print length <>'
100

$ perl -le'print "x" x ($ARGV[0]-1)' 1000 | perl -le'print length <>'
1000

$ perl -le'print "x" x ($ARGV[0]-1)' 10000 | perl -le'print length <>'
10000

$ perl -le'print "x" x ($ARGV[0]-1)' 1000000 | perl -le'print length <>'
1000000

##</code><code>##

>perl -le"print 'x' x ($ARGV[0]-1)" 100 | perl -le"print length <>"
100

>perl -le"print 'x' x ($ARGV[0]-1)" 1000 | perl -le"print length <>"
1000

>perl -le"print 'x' x ($ARGV[0]-1)" 10000 | perl -le"print length <>"
10000

>perl -le"print 'x' x ($ARGV[0]-1)" 1000000 | perl -le"print length <>"
1000000