fortunes-ja Weblog

str->str_pok |= SP_FBM;                     /* 魔法 */
s = (unsigned char*)(str->str_ptr);         /* さらに魔法 */
             -- Larry Wall in util.c from the perl source code