perl -le 's/$/1/, print while 100 > length'