This is the revision history for mbti in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
15955 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[oct "0x$t"];!
istj		 simcop2387 <*:##NULL>
15954 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]; [$t, "0x$t", oct "0x$t"]!
Useless use of list slice in void context at (IRC) line 1. [3,"0x3",3]		 simcop2387 <*:##NULL>
15953 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]; [$t, "0x$t", ord "0x$t"]!
Useless use of list slice in void context at (IRC) line 1. [3,"0x3",48]		 simcop2387 <*:##NULL>
15952 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]!
No output.		 simcop2387 <*:##NULL>
15951 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[$t]!
Argument "b" isn't numeric in list slice at (IRC) line 1. istj		 simcop2387 <*:##NULL>
15950 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[$t]!
intj		 simcop2387 <*:##NULL>
15949 mbti is `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; substr md5_hex($n),1,1;!
3		 simcop2387 <*:##NULL>
15948 mbti is `eval my ($n)=qw/`arg! `arg &n!/; $n!
simcop2387		 simcop2387 <*:##NULL>