<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(fifth) kind of vitreous/$1/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,200;

2012-03-08.txt:01:19:55: <Friendship> !c printf("%d
", 0011); /* :) */
2012-04-23.txt:19:16:16: <olsner> !c printf("%d", 011)