<wob_jonas> `` perl -we \'open$I,"<",$ARGV[0]or die;local$/;$s=<$I>;$s=~s/(.*;) d.*/$1 discrete, discreet./s;print substr($s,200),"||";open$O,">",$ARGV[0];print$O $s;\' "wisdom/b_jonas can\'t spell"

#!/bin/sh
cd /var/irclogs/_esoteric
if [ "$1" ]; then
    grep -P -i -- "$1" ????-??-??.txt | shuf -n 1
else
    file=$(shuf -en 1 ????-??-??.txt)
    echo "$file:$(shuf -n 1 $file)"
fi