<b_jonas> perl -eopen$O,">",($c="bin/listlist");print$O qq{#!/bin/sh\\nset -e\\nexport LANG=C\\ncd /hackenv/bin;exec ls -dF *[lL]ist*\\n};close$O;chmod $c,0755;

F="$(find wisdom -name "*$(echo "$1" | lowercase)*" -type f | shuf -n1)"; echo -n "${F#wisdom/}/" | rnooodl; cat "$F" | rnooodl