view bin/rnooodl @ 8196:798a9de88609

<oerjan> mkx bin/rnooodl//perl -pe \'s/(\\w)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:49:46 +0000
parents 15385eb12db2
children 4ca6ee90e6be
line wrap: on
line source

perl -pe 's/(\w)\1\1/"@{[$1 x(3+rand 7)]}"/ge'