<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-18.txt:20:27:56: <nortti> `run cat canary | paste
2013-01-09.txt:12:51:06: <Phantom_Hoover> `run cat canary