unicodeいわく、答えは愛だそうです。 #!/usr/bin/perl use encoding 'utf8'; $life = ord ('生'); $death = ord ('死'); ## 論理積をとる $love = $life & $death; printf "%c", $love; # => 愛 ちなみに愛に一歩届かないと… printf "%c", $love - 1; # => 愚 うーん、絶妙な答えだ。 ref http://osksn2.hep.sci.osaka-u.ac.jp/~taku/osx/perl/perl_utf.html http://www.rwds.net/kuroita/program/Perl_unicode.html http://pya.cc/pyaimg/pimg.php?imgid=33065&msgfull=yes&yncm=