in reply to Golfing dubstep.pl

100 
#                                                                     
+                                  1         1         1
#             1         2         3         4         5         6     
+    7         8         9         0         1         2    
#    12345678901234567890123456789012345678901234567890123456789012345
+6789012345678901234567890123456789012345678901234567890
perl -e'use Time::HiRes"usleep";$|=1;for(;;){$_=(int rand 9)/2;/\.5/?p
+rint"wub ":print"wooo ";usleep 1e5}'

[download]

Replies are listed 'Best First'.
Re^2: Golfing dubstep.pl
by choroba (Cardinal) on Sep 02, 2013 at 22:29 UTC
    86 
                  1         2         3         4         5         6     
+    7         8      
     12345678901234567890123456789012345678901234567890123456789012345
+678901234567890123456
perl -e'use Time::HiRes"usleep";$|=1;{print+(int rand 9)%2?"wub ":"woo
+o ";usleep 1e5;redo}'

    [download]
    Update: Or even 69: 
    perl -e'$|=1;{print+(int rand 9)%2?"wub ":"wooo ";select$u,$u,$u,.1;re
+do}'

    [download]
    Update: 64, thanks hdb: 
    perl -e'$|=1;{print rand(9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}'
              1         2         3         4         5         6    
     1234567890123456789012345678901234567890123456789012345678901234

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]

      int is not needed.

[reply]
[d/l]
[select]

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

      select$u,$u,$u,.1while$|=print rand>5/9?ub:ooo,$".w
[reply]
[d/l]
Re^2: Golfing dubstep.pl
by perlaintdead (Scribe) on Sep 02, 2013 at 21:27 UTC

    after research this has by far the weirdest operator i've seen

[reply]

In Section Meditations