<wob_jonas> perl -e open$I,"<",($f="wisdom/welcome.ru"); local$/; $_=<$I>; s/\xd0\xb4\xd1\x80\xd1\x83\xd0\xb3\xd0\xbe\xd0\xb3\xd0\xbe.*/\xd0\xb4\xd1\x80\xd1\x83\xd0\xb3\xd0\xbe\xd0\xb3\xd0\xbe \xd1\x82\xd0\xb8\xd0\xbf\xd0\xb0 \xd1\x8d\xd0\xb7\xd0\xbe\xd1\x82\xd0\xb5\xd1\x80\xd0\xb8\xd0\xb7\xd0\xbc\xd0\xb0 \xd0\xbf\xd0\xbe\xd0\xbf\xd1\x80\xd0\xbe\xd0\xb1\xd1\x83\xd0\xb9\xd1\x82\xd0\xb5 #esoteric \xd0\xb2 EFnet \xd0\xb8\xd0\xbb\xd0\xb8 DALnet.)/; open $O,">",$f; print $O,$_; print substr$_,201;

char s[99],*p[9],**q;main(){for(;q=p,*q++=strtok(gets(s)," ");fork()||execvp(*p,p),wait(0))for(;*q++=strtok(0," "););}