view bin/rnooodl @ 8197:4ca6ee90e6be

<oerjan> mkx bin/rnooodl//perl -pe \'s/([^w\\w])\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 01:35:44 +0000
parents 798a9de88609
children c22ee4bb1384
line wrap: on
line source

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