http://www.perlmonks.org?node_id=1052206


in reply to Re^2: Golfing dubstep.pl
in thread Golfing dubstep.pl

Doesn't catch the first "w" but here is a slight variation.

select$u,$u,$u,.1while$|=print rand>5/9?ub:ooo,$".w