perl -le'print while s/$/1/'