if ( ord($a) & (1 << 7) ) {print "happy\n"}