# HG changeset patch
# User HackBot
# Date 1464485744 0
# Node ID 4ca6ee90e6be2c594e678b0d27cc3c466a8cf1c9
# Parent  798a9de886099389ff91704d2088e44d64280500
<oerjan> mkx bin/rnooodl//perl -pe \'s/([^w\\w])\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'

diff -r 798a9de88609 -r 4ca6ee90e6be bin/rnooodl
--- a/bin/rnooodl	Sun May 29 00:49:46 2016 +0000
+++ b/bin/rnooodl	Sun May 29 01:35:44 2016 +0000
@@ -1,1 +1,1 @@
-perl -pe 's/(\w)\1\1/"@{[$1 x(3+rand 7)]}"/ge'
+perl -pe 's/([^w\w])\1\1/"@{[$1 x(3+rand 7)]}"/ge'