$_ = Jcode->new($jes_log->{'affil'})->tr($from, $to)->utf8;
	s/（/ (/go;
	s/）/) /go;
	# 法人
	s/\(財.*\)/:財:/o;
	s/財団法人/:財:/o;
	s/\(有.*\)/:有:/o;
	s/\(株.*\)/:株:/o;
	s/株式会社/:株:/o;
	s/\(独.*\)/:独:/o;
	s/独.*法人/:独:/o;
	s/\(社.*\)/:社:/o;
	s/社団法人/:社:/o;
	s/ \(.*\)//go;
	s/NPO法人/NPO /o;
	s/国立大.*法人//o;
 	# 1byte 文字 & 空白処理
	s/(.+,\s+)([A-Za-z ]+ )(University.*$)/$2University/o;
	s/([A-Za-z]+ )(University,.*$)/$1University/o;
	s/Biology and Soil Science/BSS/o; # for #0133
	s/　/・/go; # 空白 (2byte)
	s/([^A-Za-z])( +)([^A-Za-z])/$1・$3/go;  # 空白 (1byte)
	# 短縮
	s/([^A-Za-z])(or.*$)/$1/o; # X or Y -> X
	s/人間・環境/人間環境/o;
	s/アジア・アフリカ/AA/o;
	s/エコミュージアムセンター/EMC/o;
	s/研究科.*$//o;
	s/研究院.*$//o;
	s/学部.*$//o;
	s/学府.*$//o;
	s/大学.+院/大院・/o; # 大阪大問題!
	s/大・院/大院・/o;
	s/大学/大・/o;
	s/／.*$//o;
	s/(北.*大・)(.*科学センター)/$1FSC/o;
	s/総合研究所/総研・/o;
	s/研究所/研・/o;
	s/(・[^・]*)(研究室.*$)/$1/o; # X研究室 -> X
	s/臨海.*$/臨海/o;
	s/科学科.*$/科学/o;
	s/センター.*$/センター/o;
	s/講座\s*$//o;
	s/博物館.*$/博物館/o;
	s/プロジェクト.*$//o;
	s/越後.*」//o; # for #0070
	s/自然・環境/自然環境/o; # for #0746
	s/ニホンザル.*$//o; # for #0944
	s/(.*市)(.*町.*$)/$1/o;
	s/・・/・/go;
	s/・\s*/・/o;
	s/・$//o;
	s/ ・/ /o;
	s/^・//o;
	s/:・/:/o;
	s/(:)([^:]+)(:)/\($2\) /o;
	s/  / /go;
	s/^\s*//o;
	s/(^.+・?[^・]+)(・.*$)/$1/o; # 2 点以上は削除