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

##</code><code>##

perl -E'{s//say/e,redo}'