view bin/rnooodl @ 8497:2c419f225667

<izabera> ` echo \'for file do mapfile -t lines < "$file"; for (( i = ${#lines[@]} -1; i >= 0; i-- )) do printf "%s\\n" "${lines[i]}"; done done\' >> bin/tac
author HackBot
date Thu, 16 Jun 2016 09:40:02 +0000
parents 506a55a8225e
children 0dfc503499fb
line wrap: on
line source

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