1         2         3         4         5         6
     123456789012345678901234567890123456789012345678901234567890
perl -e'select$u,$u,$u,.1while$|=print+rand>5/9?"wub ":"wooo "'

##</code><code>##

              1         2         3         4         5         6
     123456789012345678901234567890123456789012345678901234567890
perl -e'select$u,$u,$u,.1while$|=print+rand>5/9?-wub:-wooo'