<oren> ` echo \'welcome | sed -e "s/th/\xce\xb8/g;s/ch/\xcf\x87/g;s/q/\xce\xba\xcf\x85/;s/w/\xce\xbf\xcf\x85/g;s/W/\xce\x9f\xcf\x85/g;y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/\xce\x91\xce\x92\xce\x9a\xce\x94\xce\x95\xce\xa6\xce\x93\xce\x97\xce\x99\xce\xaa\xce\x9a\xce\x9b\xce\x9c\xce\x9d\xce\x9f\xce\xa0\xce\xa8\xce\xa1\xce\xa3\xce\xa4\xce\xa5\xce\x92\xce\xa9\xce\x9e\xce\x97\xce\x96\xce\xb1\xce\xb2\xce\xba\xce\xb4\xce\xb5\xcf\x86\xce\xb3\xce\xb7\xce\xb9\xcf\x8a\xce\xba\xce\xbb\xce\xbc\xce\xbd\xce\xbf\xcf\x80\xcf\x88\xcf\x81\xcf\x83\xcf\x84\xcf\x85\xce\xb2\xcf\x89\xce\xbe\xce\xb7\xce\xb6/"\' >bin/\xce\xbf\xcf\x85\xce\xb5\xce\xbb\xce\xba\xce\xbf\xce\xbc\xce\xb5

#! /usr/bin/env perl
($n,$e)=split /\s+/, join(" ",@ARGV); $n=~s/ *$//; $c="ls -r /var/irclogs/_esoteric/????-??-??.txt"; $c.=" | head -n 30" unless $e eq "ever"; @f=split /\s+/, `$c`; for $f (@f) { open F,"<$f"; @l=grep(/^..:..:..: <$n>/i,<F>); close F; if (@l) { $b=$f;  $b=~s#.*/(.*?).txt#$1#; print "$b $l[-1]"; exit 1; } } print $e eq "ever" ? "not that I remember" : "not lately; try `seen $n ever";