view bin/rnooodl @ 8456:0de56f0fd57a

<shachaf> mkx bin/now//lastfiles "$@" | while read f; do echo -n "$f//"; cat "$f"; done
author HackBot
date Sun, 12 Jun 2016 07:11:42 +0000
parents 506a55a8225e
children 0dfc503499fb
line wrap: on
line source

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